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

Diff of /trunk/base/generic/solver/test/test_slv_common.c

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

revision 598 by johnpye, Fri Mar 31 08:52:57 2006 UTC revision 599 by johnpye, Fri May 12 12:53:57 2006 UTC
# Line 58  static real64 slow_inner_product(struct Line 58  static real64 slow_inner_product(struct
58    
59  /*  /*
60   *  Independent calculation of an array dot product.   *  Independent calculation of an array dot product.
61   *  Nothing fancy, no validation of input.     *  Nothing fancy, no validation of input.
62   *  Assumes valid arrays of length at least len.   *  Assumes valid arrays of length at least len.
63   */   */
64  static real64 slow_dot_product(int32 len, real64 *array1, real64 *array2)  static real64 slow_dot_product(int32 len, real64 *array1, real64 *array2)
# Line 672  static void test_slv_common(void) Line 672  static void test_slv_common(void)
672    
673    slv_destroy_vector(pvec1);    slv_destroy_vector(pvec1);
674    slv_destroy_vector(pvec2);    slv_destroy_vector(pvec2);
675            
676    CU_TEST(test_meminuse == ascmeminuse());    CU_TEST(test_meminuse == ascmeminuse());
677    
678    /* test slv_inner_product() */    /* test slv_inner_product() */
# Line 1687  extern int slv_direct_solve(slv_system_t Line 1687  extern int slv_direct_solve(slv_system_t
1687   *  @param epsilon       Tolerance for testing convergence.   *  @param epsilon       Tolerance for testing convergence.
1688   *  @param ignore_bounds If TRUE, ignore bounds on variable.   *  @param ignore_bounds If TRUE, ignore bounds on variable.
1689   *  @param scaled        If TRUE, test scaled residuals against epsilon.   *  @param scaled        If TRUE, test scaled residuals against epsilon.
1690    
1691    
1692  extern int slv_direct_log_solve(slv_system_t sys,  extern int slv_direct_log_solve(slv_system_t sys,
1693                                  struct logrel_relation *lrel,                                  struct logrel_relation *lrel,
# Line 1718  extern int slv_direct_log_solve(slv_syst Line 1718  extern int slv_direct_log_solve(slv_syst
1718   *  @param file       File stream to receive other possible solutions.   *  @param file       File stream to receive other possible solutions.
1719   *  @param perturb    If TRUE, perturbs the truth values if necessary to find the solution.   *  @param perturb    If TRUE, perturbs the truth values if necessary to find the solution.
1720   *  @param instances  List of instances.   *  @param instances  List of instances.
1721    
1722   */   */
1723    
1724    if (TRUE == i_initialized_lists) {          /* clean up list system if necessary */    if (TRUE == i_initialized_lists) {          /* clean up list system if necessary */

Legend:
Removed from v.598  
changed lines
  Added in v.599

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