Statistics
| Revision:

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

History | View | Annotate | Download (925 Bytes)

1 417 arnima
/*
2
 * $Id$
3
 *
4
 * Author: David Fournier
5 1112 johnoel
 * Copyright (c) 2008-2012 Regents of the University of California
6 417 arnima
 */
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 1609 stevenmartell
 * 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 417 arnima
 */
35 441 johnoel
void shape_check(const dvector& v1, const dvector& v2, const char *function_name)
36 1112 johnoel
{
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
}