Statistics
| Revision:

root / trunk / src / linad99 / fvar_m48.cpp @ 1131

History | View | Annotate | Download (763 Bytes)

1
/*
2
 * $Id: fvar_m48.cpp 1131 2013-08-02 22:51:34Z johnoel $
3
 *
4
 * Author: David Fournier
5
 * Copyright (c) 2008-2012 Regents of the University of California
6
 */
7
/**
8
 * \file
9
 * Description not yet available.
10
 */
11
//#undef OPT_LIB
12
#include "fvar.hpp"
13

    
14
#if !defined(OPT_LIB)
15

    
16
/**
17
 * Description not yet available.
18
 * \param
19
 */
20
const dvar_vector& dvar_matrix::operator()(int i) const
21
 {
22
   #ifdef SAFE_ARRAYS
23
     if (i<rowmin())
24
     {
25
       cerr << "matrix bound exceeded -- row index too low in dvar_matrix::operator()"
26
             << "value was" << i << endl;
27
       ad_exit(21);
28
     }
29
     if (i>rowmax())
30
     {
31
       cerr << "matrix bound exceeded -- row index too high in dvar_matrix::operator()"
32
             << "value was" << i << endl;
33
       ad_exit(22);
34
     }
35
   #endif
36
   return (m[i]);
37
 }
38
#endif