dvect18.cpp

Go to the documentation of this file.

#include "fvar.hpp"

#ifdef __TURBOC__
  #pragma hdrstop
  #include <iostream.h>
  #include <iomanip.h>
#endif

#ifdef __ZTC__
  #include <iostream.hpp>
  #include <iomanip.hpp>
#endif

void shape_check(
  const dvector& a,
  const dvector& b,
  const char* message)
{
  if (a.indexmin() != b.indexmin() || a.indexmax() != b.indexmax())
  {
    cerr << " Vector sizes do no match in" << message << "\n";
    ad_exit(1);
  }
}