Sacado Package Browser (Single Doxygen Collection) Version of the Day
Loading...
Searching...
No Matches
RAD_Const_Warn.c
Go to the documentation of this file.
1/*
2// @HEADER
3// ***********************************************************************
4//
5// Sacado Package
6// Copyright (2007) Sandia Corporation
7//
8// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
9// the U.S. Government retains certain rights in this software.
10//
11// This library is free software; you can redistribute it and/or modify
12// it under the terms of the GNU Lesser General Public License as
13// published by the Free Software Foundation; either version 2.1 of the
14// License, or (at your option) any later version.
15//
16// This library is distributed in the hope that it will be useful, but
17// WITHOUT ANY WARRANTY; without even the implied warranty of
18// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19// Lesser General Public License for more details.
20//
21// You should have received a copy of the GNU Lesser General Public
22// License along with this library; if not, write to the Free Software
23// Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
24// USA
25// Questions? Contact David M. Gay (dmgay@sandia.gov) or Eric T. Phipps
26// (etphipp@sandia.gov).
27//
28// ***********************************************************************
29// @HEADER
30*/
31
32#include <stdio.h>
33
35
36 typedef struct
38 void *var; /* address of the offending variable */
40 int gcgen;
41 int opno;
42 /* Double Val; */
43 /* mutable Double aval; */
45
46 int
48{
49 ADvari_head *V = (ADvari_head*)v;
50
52 fprintf(stderr, "RAD_Const_Warn var #%lx had gcgen = %d, opno = %d\n",
53 (unsigned long)V->var, V->gcgen, -1 - V->opno);
54 return 1;
55 }
int RAD_Const_Warn_warned
int RAD_Const_Warn_warnlim
struct ADvari_head ADvari_head
int RAD_Const_Warn(void *v)
struct ADvari_head * next