pyEQL 1.4.0rc9__cp313-cp313-macosx_10_13_x86_64.whl

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/phreeqcpp/nvector_serial.cpp

@@ -0,0 +1,1032 @@
+/**************************************************************************
+ *                                                                        *
+ * 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 initialization 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"
+#include "Utils.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);
+
+#if defined(PHREEQCI_GUI)
+#ifdef _DEBUG
+#define new DEBUG_NEW
+#undef THIS_FILE
+static char THIS_FILE[] = __FILE__;
+#endif
+#endif
+
+/********************* 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 */
+	Utilities::strcpy_safe(me->tag, 8, 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 N;
+	realtype *xd;
+
+	N = NV_LENGTH_S(x);
+	xd = NV_DATA_S(x);
+
+#if !defined(R_SO)
+	for (integertype 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;
+}