/**************************************************************************
 *                                                                        *
 * File          : nvector_serial.c                                       *
 * Programmers   : Scott D. Cohen, Alan C. Hindmarsh,                     *
 *                 Radu Serban, and Allan G. Taylor, LLNL                 *
 * Version of    : 26 June 2002                                           *
 *------------------------------------------------------------------------*
 * Copyright (c) 2002, The Regents of the University of California        *
 * Produced at the Lawrence Livermore National Laboratory                 *
 * All rights reserved                                                    *
 * For details, see LICENSE below                                         *
 *------------------------------------------------------------------------*
 * This is the implementation file for a serial implementation            *
 * of the NVECTOR package. It contains the implementation of              *
 * the serial machine environment intialization and free                  *
 * routines (and of the Fortran callable interfaces to them)              *
 * and of the N_Vector kernels listed in nvector_serial.h.                *
 *                                                                        *
 *------------------------------------------------------------------------*
 * LICENSE                                                                *
 *------------------------------------------------------------------------*
 * Copyright (c) 2002, The Regents of the University of California.       *
 * Produced at the Lawrence Livermore National Laboratory.                *
 * Written by S.D. Cohen, A.C. Hindmarsh, R. Serban,                      *
 *            D. Shumaker, and A.G. Taylor.                               *
 * UCRL-CODE-155951    (CVODE)                                            *
 * UCRL-CODE-155950    (CVODES)                                           *
 * UCRL-CODE-155952    (IDA)                                              *
 * UCRL-CODE-237203    (IDAS)                                             *
 * UCRL-CODE-155953    (KINSOL)                                           *
 * All rights reserved.                                                   *
 *                                                                        *
 * This file is part of SUNDIALS.                                         *
 *                                                                        *
 * Redistribution and use in source and binary forms, with or without     *
 * modification, are permitted provided that the following conditions     *
 * are met:                                                               *
 *                                                                        *
 * 1. Redistributions of source code must retain the above copyright      *
 * notice, this list of conditions and the disclaimer below.              *
 *                                                                        *
 * 2. Redistributions in binary form must reproduce the above copyright   *
 * notice, this list of conditions and the disclaimer (as noted below)    *
 * in the documentation and/or other materials provided with the          *
 * distribution.                                                          *
 *                                                                        *
 * 3. Neither the name of the UC/LLNL nor the names of its contributors   *
 * may be used to endorse or promote products derived from this software  *
 * without specific prior written permission.                             *
 *                                                                        *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS    *
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT      *
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS      *
 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE         *
 * REGENTS OF THE UNIVERSITY OF CALIFORNIA, THE U.S. DEPARTMENT OF ENERGY *
 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,        *
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT       *
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,  *
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY  *
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT    *
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE  *
 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.   *
 **************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "nvector_serial.h"
#include "sundialstypes.h"
#include "sundialsmath.h"

/* WARNING don`t include any headers below here */

#define ZERO RCONST(0.0)
#define HALF RCONST(0.5)
#define ONE  RCONST(1.0)
#define ONEPT5 RCONST(1.5)


/* Private Helper Prototypes */
/* z=x */
static void VCopy_Serial(N_Vector x, N_Vector z);
/* z=x+y */
static void VSum_Serial(N_Vector x, N_Vector y, N_Vector z);
/* z=x-y */
static void VDiff_Serial(N_Vector x, N_Vector y, N_Vector z);
/* z=-x */
static void VNeg_Serial(N_Vector x, N_Vector z);
/* z=c(x+y) */
static void VScaleSum_Serial(realtype c, N_Vector x, N_Vector y, N_Vector z);
/* z=c(x-y) */
static void VScaleDiff_Serial(realtype c, N_Vector x, N_Vector y, N_Vector z);
/* z=ax+y */
static void VLin1_Serial(realtype a, N_Vector x, N_Vector y, N_Vector z);
/* z=ax-y */
static void VLin2_Serial(realtype a, N_Vector x, N_Vector y, N_Vector z);
/* y <- ax+y */
static void Vaxpy_Serial(realtype a, N_Vector x, N_Vector y);
/* x <- ax */
static void VScaleBy_Serial(realtype a, N_Vector x);

/********************* Exported Functions ************************/

/* Serial implementation of the machine environment
   initialization routine */

M_Env
M_EnvInit_Serial(integertype vec_length)
{
	M_Env me;

	/* Create machine environment structure */
	me = (M_Env) malloc(sizeof *me);
	if (me == NULL)
		return (NULL);

	/* Create serial content of machine environment structure */
	me->content =
		(M_EnvSerialContent) malloc(sizeof(struct _M_EnvSerialContent));
	if (me->content == NULL)
	{
		free(me);
		return (NULL);
	}

	/* Load serial content of machine environment structure */
	ME_CONTENT_S(me)->length = vec_length;

	/* Attach vector operations */
	me->ops = (N_Vector_Ops) malloc(sizeof(struct _generic_N_Vector_Ops));
	if (me->ops == NULL)
	{
		free(me->content);
		free(me);
		return (NULL);
	}

	me->ops->nvnew = N_VNew_Serial;
	me->ops->nvnewS = N_VNew_S_Serial;
	me->ops->nvfree = N_VFree_Serial;
	me->ops->nvfreeS = N_VFree_S_Serial;
	me->ops->nvmake = N_VMake_Serial;
	me->ops->nvdispose = N_VDispose_Serial;
	me->ops->nvgetdata = N_VGetData_Serial;
	me->ops->nvsetdata = N_VSetData_Serial;
	me->ops->nvlinearsum = N_VLinearSum_Serial;
	me->ops->nvconst = N_VConst_Serial;
	me->ops->nvprod = N_VProd_Serial;
	me->ops->nvdiv = N_VDiv_Serial;
	me->ops->nvscale = N_VScale_Serial;
	me->ops->nvabs = N_VAbs_Serial;
	me->ops->nvinv = N_VInv_Serial;
	me->ops->nvaddconst = N_VAddConst_Serial;
	me->ops->nvdotprod = N_VDotProd_Serial;
	me->ops->nvmaxnorm = N_VMaxNorm_Serial;
	me->ops->nvwrmsnorm = N_VWrmsNorm_Serial;
	me->ops->nvmin = N_VMin_Serial;
	me->ops->nvwl2norm = N_VWL2Norm_Serial;
	me->ops->nvl1norm = N_VL1Norm_Serial;
	me->ops->nvonemask = N_VOneMask_Serial;
	me->ops->nvcompare = N_VCompare_Serial;
	me->ops->nvinvtest = N_VInvTest_Serial;
	me->ops->nvconstrprodpos = N_VConstrProdPos_Serial;
	me->ops->nvconstrmask = N_VConstrMask_Serial;
	me->ops->nvminquotient = N_VMinQuotient_Serial;
	me->ops->nvprint = N_VPrint_Serial;

	/* Attach ID tag */
	strcpy(me->tag, ID_TAG_S);

	return (me);

}

/* Serial implementation of the machine environment
   free routine */

void
M_EnvFree_Serial(M_Env machEnv)
{
	if (machEnv == NULL)
		return;

	free(machEnv->content);
	free(machEnv->ops);
	free(machEnv);
}

/***************************************************************************/

/* BEGIN implementation of vector operations */

N_Vector
N_VNew_Serial(integertype n, M_Env machEnv)
{
	N_Vector v;
	integertype length;

	if (n <= 0)
		return (NULL);

	if (machEnv == NULL)
		return (NULL);

	v = (N_Vector) malloc(sizeof *v);
	if (v == NULL)
		return (NULL);

	v->content =
		(N_VectorSerialContent) malloc(sizeof(struct _N_VectorSerialContent));
	if (v->content == NULL)
	{
		free(v);
		return (NULL);
	}

	length = ME_CONTENT_S(machEnv)->length;

	NV_CONTENT_S(v)->data = (realtype *) malloc(length * sizeof(realtype));
	if (NV_CONTENT_S(v)->data == NULL)
	{
		free(v->content);
		free(v);
		return (NULL);
	}

	NV_CONTENT_S(v)->length = length;

	v->menv = machEnv;

	return (v);
}


N_Vector_S
N_VNew_S_Serial(integertype ns, integertype n, M_Env machEnv)
{
	N_Vector_S vs;
	integertype is, j;


	if (ns <= 0 || n <= 0)
		return (NULL);

	if (machEnv == NULL)
		return (NULL);

	vs = (N_Vector_S) malloc(ns * sizeof(N_Vector *));
	if (vs == NULL)
		return (NULL);

	for (is = 0; is < ns; is++)
	{
		vs[is] = N_VNew_Serial(n, machEnv);
		if (vs[is] == NULL)
		{
			for (j = 0; j < is; j++)
				N_VFree_Serial(vs[j]);
			free(vs);
			return (NULL);
		}
	}

	return (vs);
}


void
N_VFree_Serial(N_Vector v)
{
	free(NV_DATA_S(v));
	free(NV_CONTENT_S(v));
	free(v);
}


void
N_VFree_S_Serial(integertype ns, N_Vector_S vs)
{
	integertype is;

	for (is = 0; is < ns; is++)
		N_VFree_Serial(vs[is]);
	free(vs);
}

N_Vector
N_VMake_Serial(integertype n, realtype * v_data, M_Env machEnv)
{
	N_Vector v;
	integertype length;

	if (n <= 0)
		return (NULL);

	if (machEnv == NULL)
		return (NULL);

	v = (N_Vector) malloc(sizeof *v);
	if (v == NULL)
		return (NULL);

	v->content =
		(N_VectorSerialContent) malloc(sizeof(struct _N_VectorSerialContent));
	if (v->content == NULL)
	{
		free(v);
		return (NULL);
	}

	length = ME_CONTENT_S(machEnv)->length;

	NV_CONTENT_S(v)->data = v_data;

	NV_CONTENT_S(v)->length = length;

	v->menv = machEnv;

	return (v);
}

void
N_VDispose_Serial(N_Vector v)
{
	free(NV_CONTENT_S(v));
	free(v);
}

realtype *
N_VGetData_Serial(N_Vector v)
{
	realtype *v_data;
	v_data = NV_CONTENT_S(v)->data;
	return (v_data);
}

void
N_VSetData_Serial(realtype * v_data, N_Vector v)
{
	NV_CONTENT_S(v)->data = v_data;
}

void
N_VLinearSum_Serial(realtype a, N_Vector x, realtype b, N_Vector y,
					N_Vector z)
{
	integertype i, N;
	realtype c, *xd, *yd, *zd;
	N_Vector v1, v2;
	booleantype test;

	if ((b == ONE) && (z == y))
	{							/* BLAS usage: axpy y <- ax+y */
		Vaxpy_Serial(a, x, y);
		return;
	}

	if ((a == ONE) && (z == x))
	{							/* BLAS usage: axpy x <- by+x */
		Vaxpy_Serial(b, y, x);
		return;
	}

	/* Case: a == b == 1.0 */

	if ((a == ONE) && (b == ONE))
	{
		VSum_Serial(x, y, z);
		return;
	}

	/* Cases: (1) a == 1.0, b = -1.0, (2) a == -1.0, b == 1.0 */

	/*if ((test = ((a == ONE) && (b == -ONE))) || ((a == -ONE) && (b == ONE))) { */
	test = ((a == ONE) && (b == -ONE));
	if (test || ((a == -ONE) && (b == ONE)))
	{
		v1 = test ? y : x;
		v2 = test ? x : y;
		VDiff_Serial(v2, v1, z);
		return;
	}

	/* Cases: (1) a == 1.0, b == other or 0.0, (2) a == other or 0.0, b == 1.0 */
	/* if a or b is 0.0, then user should have called N_VScale */

	/*if ((test = (a == ONE)) || (b == ONE)) { */
	test = (a == ONE);
	if (test || (b == ONE))
	{
		c = test ? b : a;
		v1 = test ? y : x;
		v2 = test ? x : y;
		VLin1_Serial(c, v1, v2, z);
		return;
	}

	/* Cases: (1) a == -1.0, b != 1.0, (2) a != 1.0, b == -1.0 */

	/*if ((test = (a == -ONE)) || (b == -ONE)) { */
	test = (a == -ONE);
	if (test || (b == -ONE))
	{
		c = test ? b : a;
		v1 = test ? y : x;
		v2 = test ? x : y;
		VLin2_Serial(c, v1, v2, z);
		return;
	}

	/* Case: a == b */
	/* catches case both a and b are 0.0 - user should have called N_VConst */

	if (a == b)
	{
		VScaleSum_Serial(a, x, y, z);
		return;
	}

	/* Case: a == -b */

	if (a == -b)
	{
		VScaleDiff_Serial(a, x, y, z);
		return;
	}

	/* Do all cases not handled above:
	   (1) a == other, b == 0.0 - user should have called N_VScale
	   (2) a == 0.0, b == other - user should have called N_VScale
	   (3) a,b == other, a !=b, a != -b */

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = a * (*xd++) + b * (*yd++);
}


void
N_VConst_Serial(realtype c, N_Vector z)
{
	integertype i, N;
	realtype *zd;

	N = NV_LENGTH_S(z);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = c;
}


void
N_VProd_Serial(N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = (*xd++) * (*yd++);
}


void
N_VDiv_Serial(N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = (*xd++) / (*yd++);
}


void
N_VScale_Serial(realtype c, N_Vector x, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	if (z == x)
	{							/* BLAS usage: scale x <- cx */
		VScaleBy_Serial(c, x);
		return;
	}

	if (c == ONE)
	{
		VCopy_Serial(x, z);
	}
	else if (c == -ONE)
	{
		VNeg_Serial(x, z);
	}
	else
	{
		N = NV_LENGTH_S(x);
		xd = NV_DATA_S(x);
		zd = NV_DATA_S(z);
		for (i = 0; i < N; i++)
			*zd++ = c * (*xd++);
	}
}


void
N_VAbs_Serial(N_Vector x, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++, xd++, zd++)
		*zd = ABS(*xd);
}


void
N_VInv_Serial(N_Vector x, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = ONE / (*xd++);
}


void
N_VAddConst_Serial(N_Vector x, realtype b, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = (*xd++) + b;
}


realtype
N_VDotProd_Serial(N_Vector x, N_Vector y)
{
	integertype i, N;
	realtype sum = ZERO, *xd, *yd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);

	for (i = 0; i < N; i++)
		sum += (*xd++) * (*yd++);

	return (sum);
}


realtype
N_VMaxNorm_Serial(N_Vector x)
{
	integertype i, N;
	realtype max = ZERO, *xd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);

	for (i = 0; i < N; i++, xd++)
	{
		if (ABS(*xd) > max)
			max = ABS(*xd);
	}

	return (max);
}


realtype
N_VWrmsNorm_Serial(N_Vector x, N_Vector w)
{
	integertype i, N;
	realtype sum = ZERO, prodi, *xd, *wd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	wd = NV_DATA_S(w);

	for (i = 0; i < N; i++)
	{
		prodi = (*xd++) * (*wd++);
		sum += prodi * prodi;
	}

	return (RSqrt(sum / N));
}


realtype
N_VMin_Serial(N_Vector x)
{
	integertype i, N;
	realtype min, *xd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);

	min = xd[0];

	xd++;
	for (i = 1; i < N; i++, xd++)
	{
		if ((*xd) < min)
			min = *xd;
	}

	return (min);
}


realtype
N_VWL2Norm_Serial(N_Vector x, N_Vector w)
{
	integertype i, N;
	realtype sum = ZERO, prodi, *xd, *wd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	wd = NV_DATA_S(w);

	for (i = 0; i < N; i++)
	{
		prodi = (*xd++) * (*wd++);
		sum += prodi * prodi;
	}

	return (RSqrt(sum));
}


realtype
N_VL1Norm_Serial(N_Vector x)
{
	integertype i, N;
	realtype sum = ZERO, *xd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);

	for (i = 0; i < N; i++)
		sum += ABS(xd[i]);

	return (sum);
}


void
N_VOneMask_Serial(N_Vector x)
{
	integertype i, N;
	realtype *xd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);

	for (i = 0; i < N; i++, xd++)
	{
		if (*xd != ZERO)
			*xd = ONE;
	}
}


void
N_VCompare_Serial(realtype c, N_Vector x, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++, xd++, zd++)
	{
		*zd = (ABS(*xd) >= c) ? ONE : ZERO;
	}
}


booleantype
N_VInvTest_Serial(N_Vector x, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
	{
		if (*xd == ZERO)
			return (FALSE);
		*zd++ = ONE / (*xd++);
	}

	return (TRUE);
}


booleantype
N_VConstrProdPos_Serial(N_Vector c, N_Vector x)
{
	integertype i, N;
	realtype *xd, *cd;
	booleantype test;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	cd = NV_DATA_S(c);

	test = TRUE;

	for (i = 0; i < N; i++, xd++, cd++)
	{
		if (*cd != ZERO)
		{
			if ((*xd) * (*cd) <= ZERO)
			{
				test = FALSE;
				break;
			}
		}
	}
	return (test);
}


booleantype
N_VConstrMask_Serial(N_Vector c, N_Vector x, N_Vector m)
{
	integertype i, N;
	booleantype test;
	realtype *cd, *xd, *md;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	cd = NV_DATA_S(c);
	md = NV_DATA_S(m);

	test = TRUE;

	for (i = 0; i < N; i++, cd++, xd++, md++)
	{
		*md = ZERO;
		if (*cd == ZERO)
			continue;
		if (*cd > ONEPT5 || (*cd) < -ONEPT5)
		{
			if ((*xd) * (*cd) <= ZERO)
			{
				test = FALSE;
				*md = ONE;
			}
			continue;
		}
		if ((*cd) > HALF || (*cd) < -HALF)
		{
			if ((*xd) * (*cd) < ZERO)
			{
				test = FALSE;
				*md = ONE;
			}
		}
	}
	return (test);
}


realtype
N_VMinQuotient_Serial(N_Vector num, N_Vector denom)
{
	booleantype notEvenOnce;
	integertype i, N;
	realtype *nd, *dd, min;

	N = NV_LENGTH_S(num);
	nd = NV_DATA_S(num);
	dd = NV_DATA_S(denom);
	min = 0;

	notEvenOnce = TRUE;

	for (i = 0; i < N; i++, nd++, dd++)
	{
		if (*dd == ZERO)
			continue;
		else
		{
			if (notEvenOnce)
			{
				min = *nd / *dd;
				notEvenOnce = FALSE;
			}
			else
				min = MIN(min, (*nd) / (*dd));
		}
	}
	if (notEvenOnce)
		min = 1.e99;

	return (min);
}


void
N_VPrint_Serial(N_Vector x)
{
	integertype i, N;
	realtype *xd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);

#if !defined(R_SO)
	for (i = 0; i < N; i++)
		printf("%11.8g\n", (double) (*xd++));

	printf("\n");
#endif
}


/***************** Private Helper Functions **********************/


static void
VCopy_Serial(N_Vector x, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = *xd++;
}


static void
VSum_Serial(N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = (*xd++) + (*yd++);
}


static void
VDiff_Serial(N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = (*xd++) - (*yd++);
}


static void
VNeg_Serial(N_Vector x, N_Vector z)
{
	integertype i, N;
	realtype *xd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = -(*xd++);
}


static void
VScaleSum_Serial(realtype c, N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = c * ((*xd++) + (*yd++));
}


static void
VScaleDiff_Serial(realtype c, N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = c * ((*xd++) - (*yd++));
}


static void
VLin1_Serial(realtype a, N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = a * (*xd++) + (*yd++);
}


static void
VLin2_Serial(realtype a, N_Vector x, N_Vector y, N_Vector z)
{
	integertype i, N;
	realtype *xd, *yd, *zd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);
	zd = NV_DATA_S(z);

	for (i = 0; i < N; i++)
		*zd++ = a * (*xd++) - (*yd++);
}

static void
Vaxpy_Serial(realtype a, N_Vector x, N_Vector y)
{
	integertype i, N;
	realtype *xd, *yd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);
	yd = NV_DATA_S(y);

	if (a == ONE)
	{
		for (i = 0; i < N; i++)
			*yd++ += (*xd++);
		return;
	}

	if (a == -ONE)
	{
		for (i = 0; i < N; i++)
			*yd++ -= (*xd++);
		return;
	}

	for (i = 0; i < N; i++)
		*yd++ += a * (*xd++);
}

static void
VScaleBy_Serial(realtype a, N_Vector x)
{
	integertype i, N;
	realtype *xd;

	N = NV_LENGTH_S(x);
	xd = NV_DATA_S(x);

	for (i = 0; i < N; i++)
		*xd++ *= a;
}