Statistics
| Revision:

root / trunk / src / linad99 / dvect18.cpp @ 1609

History | View | Annotate | Download (925 Bytes)

1
/*
2
 * $Id: dvect18.cpp 1609 2014-02-05 05:56:01Z stevenmartell $
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
// file fvar_fn.cpp
12
// math.h functions involving prevariables
13
#include "fvar.hpp"
14

    
15
#ifdef __TURBOC__
16
  #pragma hdrstop
17
  #include <iostream.h>
18
  #include <iomanip.h>
19
#endif
20

    
21
#ifdef __ZTC__
22
  #include <iostream.hpp>
23
  #include <iomanip.hpp>
24
#endif
25

    
26
#include <stdio.h>
27
#include <math.h>
28

    
29
/**
30
 * Determine if the lower and upper bounds of two evctors match in a specified function.
31
 * \param v1 a data vector
32
 * \param v2 a data vector
33
 * \param function_nam a pointer to the name of the function in question.
34
 */
35
void shape_check(const dvector& v1, const dvector& v2, const char *function_name)
36
{
37
  if (v1.indexmin() != v2.indexmin() || v1.indexmax() != v2.indexmax())
38
  {
39
    cerr << " Vector sizes do no match in" << function_name << "\n";
40
    ad_exit(1);
41
  }
42
}