common.cpp

Go to the documentation of this file.

/* Begin CVS Header
   $Source: /Volumes/Home/Users/shoops/cvs/copasi_dev/copasi/odepack++/common.cpp,v $
   $Revision: 1.3 $
   $Name:  $
   $Author: shoops $
   $Date: 2006/06/20 13:19:11 $
   End CVS Header */

// Copyright © 2006 by Pedro Mendes, Virginia Tech Intellectual
// Properties, Inc. and EML Research, gGmbH.
// All rights reserved.
//
// This C++ code is based on an f2c conversion of the Fortran
// library ODEPACK available at: http://www.netlib.org/odepack/

#include "copasi.h"

#include "common.h"

PJAC::PJAC(): mpMethod(NULL) {}

PJAC::PJAC(C_INT (*pMethod)(C_INT *neq, double *y, double *yh,
                            C_INT *nyh, double *ewt, double *ftem,
                            double *savf, double *wm, C_INT *iwm,
                            evalF f, evalJ jac)) : mpMethod(pMethod) {}

PJAC::~PJAC() {}

C_INT PJAC::operator() (C_INT *neq, double *y, double *yh,
                        C_INT *nyh, double *ewt, double *ftem,
                        double *savf, double *wm, C_INT *iwm,
                        evalF f, evalJ jac)
{return (*mpMethod)(neq, y, yh, nyh, ewt, ftem, savf, wm, iwm, f, jac);}

SLVS::SLVS() : mpMethod(NULL) {}

SLVS::SLVS(C_INT (*pMethod)(double *wm, C_INT *iwm, double *x, double *tem)):
    mpMethod(pMethod)
{}

SLVS::~SLVS() {}

C_INT SLVS::operator() (double *wm, C_INT *iwm, double *x,
                        double *tem)
{return (*mpMethod)(wm, iwm, x, tem);}