COPASI API  4.16.103
Functions
dmnorm.cpp File Reference
#include <cmath>
#include <algorithm>
#include "copasi.h"
Include dependency graph for dmnorm.cpp:

Go to the source code of this file.

Functions

double dmnorm_ (C_INT *n, double *v, double *w)
 

Function Documentation

double dmnorm_ ( C_INT n,
double *  v,
double *  w 
)

Definition at line 35 of file dmnorm.cpp.

Referenced by CInternalSolver::dprja_(), CInternalSolver::dstoda_(), CLSODA::operator()(), and CLSODAR::operator()().

36 {
37  double vm = 0.0, tmp;
38  double *tv = v, *tw = w, *end = tv + *n;
39 
40  while (tv != end)
41  if ((tmp = fabs(*tv++) * *tw++) > vm) vm = tmp;
42 
43  return vm;
44 }