---

scaled_real_parameter.cc

Go to the documentation of this file.

// scaled_real_parameter.cc
// SuperMix version 1.0  C++ source file
//
// Copyright (c) 1999 California Institute of Technology.
// All rights reserved.
//
// Redistribution and use in source and binary forms for noncommercial
// purposes are permitted provided that the above copyright notice and
// this paragraph are duplicated in all such forms and that any
// documentation and other materials related to such distribution and
// use acknowledge that the software was developed by California
// Institute of Technology. Redistribution and/or use in source or
// binary forms is not permitted for any commercial purpose. Use of
// this software does not include a permitted use of the Institute's
// name or trademark for any purpose.
//
// DISCLAIMER:
// THIS SOFTWARE AND/OR RELATED MATERIALS ARE PROVIDED "AS-IS" WITHOUT
// WARRANTY OF ANY KIND INCLUDING ANY WARRANTIES OF PERFORMANCE OR
// MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET
// FORTH IN UCC 23212-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE
// LICENSED PRODUCT, HOWEVER USED.  IN NO EVENT SHALL CALTECH/JPL BE
// LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING BUT NOT LIMITED TO
// INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC
// DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF
// WHETHER CALTECH/JPL SHALL BE ADVISED, HAVE REASON TO KNOW, OR IN
// FACT SHALL KNOW OF THE POSSIBILITY.  THE USER BEARS ALL RISK
// RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND/OR RELATED
// MATERIALS.

#include "parameter/scaled_real_parameter.h"
#include "global.h"
#include "error.h"


// default constructor
scaled_real_parameter::scaled_real_parameter() :
  shadowed(0),
  scale(0.),
  get_flag(0)
{ }

scaled_real_parameter::scaled_real_parameter(const double s, abstract_real_parameter & p) :
  shadowed(&p),
  scale(s),
  get_flag(0)
{ }

double scaled_real_parameter::get() const
{
  if(shadowed==0)
  {
    error::warning(
      "Accessing an uninitialized scaled_real_parameter, returning zero.");
    return 0.0;
  }

  if(get_flag)     // is flag on already !!?
  {
    get_flag = 0;  // reset it for next time
    error::warning(
       "Terminating infinite real_parameter shadowing loop, returning zero.");
    return 0.;
  }

  get_flag = 1;

  double v = scale * shadowed->get();

  get_flag = 0;

  return v;
}

void scaled_real_parameter::set(const double s, abstract_real_parameter & p)
{
  shadowed = &p;
  scale = s;
}

---

Please direct comments and corrections to supermix@submm.caltech.edu
Go to the supermix home page
Generated by 1.2.7