/[ascend]/trunk/base/generic/compiler/relation_util.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/relation_util.c

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

revision 831 by johnpye, Fri Aug 11 04:51:27 2006 UTC revision 832 by johnpye, Wed Aug 23 07:06:47 2006 UTC
# Line 2818  double *RelationFindRoots(struct Instanc Line 2818  double *RelationFindRoots(struct Instanc
2818      if (glob_done == 1) {      if (glob_done == 1) {
2819        /* set to 0 so while loop in RelationInvertToken will work */        /* set to 0 so while loop in RelationInvertToken will work */
2820        glob_done = 0;        glob_done = 0;
2821          CONSOLE_DEBUG("Calling 'RelationInvertToken'...");
2822        glob_done = RelationInvertTokenTop(&(soln_list));        glob_done = RelationInvertTokenTop(&(soln_list));
2823      }      }
2824      if (glob_done == 1) { /* if still one, token inversions successful */      if (glob_done == 1) { /* if still one, token inversions successful */
# Line 3446  int RelationInvertToken(struct relation_ Line 3447  int RelationInvertToken(struct relation_
3447            soln_list->soln[ndx] =            soln_list->soln[ndx] =
3448              safe_tan_D0(soln_list->soln[ndx],not_safe);              safe_tan_D0(soln_list->soln[ndx],not_safe);
3449          }else{          }else{
3450              /* CONSOLE_DEBUG("ARCTAN arg x = %f is out of range (-pi/2,pi/2)",soln_list->soln[ndx]); */
3451            remove_soln(soln_list,ndx);            remove_soln(soln_list,ndx);
3452          }          }
3453          break;          break;
# Line 3455  int RelationInvertToken(struct relation_ Line 3457  int RelationInvertToken(struct relation_
3457            soln_list->soln[ndx] =            soln_list->soln[ndx] =
3458              safe_tanh_D0(soln_list->soln[ndx],not_safe);              safe_tanh_D0(soln_list->soln[ndx],not_safe);
3459          }else{          }else{
3460              /* CONSOLE_DEBUG("ARCTANH arg x = %f is out of range (-1,1)",soln_list->soln[ndx]); */
3461            remove_soln(soln_list,ndx);            remove_soln(soln_list,ndx);
3462          }          }
3463          break;          break;

Legend:
Removed from v.831  
changed lines
  Added in v.832

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22