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

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

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

revision 1174 by johnpye, Thu Dec 14 14:04:54 2006 UTC revision 1175 by johnpye, Thu Jan 18 00:34:22 2007 UTC
# Line 95  int samplelist_assign(SampleList *l, uns Line 95  int samplelist_assign(SampleList *l, uns
95  // dim table or Wild or Dimensionless.  // dim table or Wild or Dimensionless.
96  #else  #else
97          l->d = WildDimension();          l->d = WildDimension();
98  #endif  #endif
99    
100  #if SAMPLELIST_DEBUG  #if SAMPLELIST_DEBUG
101          FPRINTF(ASCERR,"copy of wild dimen looks like\n");          FPRINTF(ASCERR,"copy of wild dimen looks like\n");
# Line 124  double samplelist_get(CONST SampleList * Line 124  double samplelist_get(CONST SampleList *
124      }      }
125      ERROR_REPORTER_HERE(ASC_PROG_WARNING,"Invalid sample index %ld."      ERROR_REPORTER_HERE(ASC_PROG_WARNING,"Invalid sample index %ld."
126              " Returning 0.", i);              " Returning 0.", i);
127      return 0.;        return 0.;
128  }  }
129    
130  void samplelist_set(CONST SampleList *l, CONST long i, CONST double x){  void samplelist_set(CONST SampleList *l, CONST long i, CONST double x){
# Line 141  void samplelist_set(CONST SampleList *l, Line 141  void samplelist_set(CONST SampleList *l,
141    
142  void samplelist_debug(CONST SampleList *l){  void samplelist_debug(CONST SampleList *l){
143      long i;      long i;
144      CONSOLE_DEBUG("SAMPLELIST (%d)", l->ns);      CONSOLE_DEBUG("SAMPLELIST (%ld)", l->ns);
145      for(i=0; i < l->ns; ++i){      for(i=0; i < l->ns; ++i){
146          CONSOLE_DEBUG("sample[%d] = %f", i, l->x[i]);          CONSOLE_DEBUG("sample[%ld] = %f", i, l->x[i]);
147      }      }
148  }  }

Legend:
Removed from v.1174  
changed lines
  Added in v.1175

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