/[ascend]/trunk/base/generic/solver/rel.c
ViewVC logotype

Diff of /trunk/base/generic/solver/rel.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 709 by johnpye, Wed Jun 28 16:28:57 2006 UTC revision 710 by johnpye, Thu Jun 29 08:53:37 2006 UTC
# Line 514  struct ExtRelCache *CreateExtRelCache(st Line 514  struct ExtRelCache *CreateExtRelCache(st
514    cache->efunc = ExternalCallExtFunc(ext);    cache->efunc = ExternalCallExtFunc(ext);
515    cache->data = ExternalCallDataInstance(ext);    cache->data = ExternalCallDataInstance(ext);
516    cache->arglist = ExternalCallArgList(ext);    cache->arglist = ExternalCallArgList(ext);
517      CONSOLE_DEBUG("ASSIGNED efunc %p to ExtRelCache %p",cache->efunc,cache);
518    
519    /* Fetch the size of the input/output argument lists */    /* Fetch the size of the input/output argument lists */
520    n_input_args = NumberInputArgs(cache->efunc);    n_input_args = NumberInputArgs(cache->efunc);
# Line 645  static int ArgsDifferent(double new, dou Line 646  static int ArgsDifferent(double new, dou
646    
647  real64 ExtRel_Evaluate_Residual(struct rel_relation *rel){  real64 ExtRel_Evaluate_Residual(struct rel_relation *rel){
648      double value;      double value;
649        CONSOLE_DEBUG("EVALUATING RELATION %p",rel);
650      value = ExtRel_Evaluate_RHS(rel) - ExtRel_Evaluate_LHS(rel);      value = ExtRel_Evaluate_RHS(rel) - ExtRel_Evaluate_LHS(rel);
651      CONSOLE_DEBUG("RESIDUAL = %f",value);      CONSOLE_DEBUG("RESIDUAL = %f",value);
652      return value;      return value;
# Line 674  real64 ExtRel_Evaluate_RHS(struct rel_re Line 676  real64 ExtRel_Evaluate_RHS(struct rel_re
676    cache = rel_extcache(rel);    cache = rel_extcache(rel);
677    efunc = cache->efunc;    efunc = cache->efunc;
678    CONSOLE_DEBUG("CACHE = %p",cache);    CONSOLE_DEBUG("CACHE = %p",cache);
679      CONSOLE_DEBUG("efunc = %p",efunc);
680            
681    eval_func = GetValueFunc(efunc);    eval_func = GetValueFunc(efunc);
682    inputlist = cache->inputlist;    inputlist = cache->inputlist;
Legend:
Removed from v.709  
changed lines
  Added in v.710
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22