/[ascend]/trunk/base/generic/solver/mtx_query.h
ViewVC logotype

Diff of /trunk/base/generic/solver/mtx_query.h

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

revision 11 by aw0a, Sat Nov 13 16:45:56 2004 UTC revision 33 by ben.allan, Sun Dec 26 20:06:01 2004 UTC
# Line 1  Line 1 
1  /*  /**<
2   *  mtx2: Ascend Sparse Matrix Package   *  mtx2: Ascend Sparse Matrix Package
3   *  by Benjamin Andrew Allan   *  by Benjamin Andrew Allan
4   *  Derived from mtx by Karl Michael Westerberg   *  Derived from mtx by Karl Michael Westerberg
# Line 29  Line 29 
29   */   */
30  #ifndef __MTX_QUERY_H_SEEN__  #ifndef __MTX_QUERY_H_SEEN__
31  #define __MTX_QUERY_H_SEEN__  #define __MTX_QUERY_H_SEEN__
32  /* requires #include "mtx.h" */  /**< requires #include "mtx.h" */
33    
34    
35  extern real64 mtx_next_in_row(mtx_matrix_t, mtx_coord_t *,mtx_range_t *);  extern real64 mtx_next_in_row(mtx_matrix_t, mtx_coord_t *,mtx_range_t *);
36  extern real64 mtx_next_in_col(mtx_matrix_t, mtx_coord_t *,mtx_range_t *);  extern real64 mtx_next_in_col(mtx_matrix_t, mtx_coord_t *,mtx_range_t *);
37  /**  /**<
38   -$-  value = mtx_next_in_row(matrix,coord,colrng)   -$-  value = mtx_next_in_row(matrix,coord,colrng)
39   -$-  value = mtx_next_in_col(matrix,coord,rowrng)   -$-  value = mtx_next_in_col(matrix,coord,rowrng)
40   ***  real64 value;   ***  real64 value;
# Line 100  extern real64 mtx_row_max(mtx_matrix_t, Line 100  extern real64 mtx_row_max(mtx_matrix_t,
100                                  mtx_range_t *, real64 *);                                  mtx_range_t *, real64 *);
101  extern real64 mtx_col_max(mtx_matrix_t, mtx_coord_t *,  extern real64 mtx_col_max(mtx_matrix_t, mtx_coord_t *,
102                                  mtx_range_t *, real64 *);                                  mtx_range_t *, real64 *);
103  /**  /**<
104   -$-  value = mtx_row_max(matrix,coord,colrng,signval)   -$-  value = mtx_row_max(matrix,coord,colrng,signval)
105   -$-  value = mtx_col_max(matrix,coord,rowrng,signval)   -$-  value = mtx_col_max(matrix,coord,rowrng,signval)
106   -$-  value = mtx_row_min(matrix,coord,colrng,signval)   -$-  value = mtx_row_min(matrix,coord,colrng,signval)
# Line 131  extern real64 mtx_row_min(mtx_matrix_t, Line 131  extern real64 mtx_row_min(mtx_matrix_t,
131                                  mtx_range_t *, real64 *,real64);                                  mtx_range_t *, real64 *,real64);
132  extern real64 mtx_col_min(mtx_matrix_t, mtx_coord_t *,  extern real64 mtx_col_min(mtx_matrix_t, mtx_coord_t *,
133                                  mtx_range_t *, real64 *,real64);                                  mtx_range_t *, real64 *,real64);
134  /**  /**<
135   -$-  value = mtx_row_min(matrix,coord,colrng,signval,minval)   -$-  value = mtx_row_min(matrix,coord,colrng,signval,minval)
136   -$-  value = mtx_col_min(matrix,coord,rowrng,signval,minval)   -$-  value = mtx_col_min(matrix,coord,rowrng,signval,minval)
137   ***  real64 value, *signval, minval;   ***  real64 value, *signval, minval;
# Line 152  extern real64 mtx_get_pivot_col(mtx_matr Line 152  extern real64 mtx_get_pivot_col(mtx_matr
152  extern real64 mtx_get_pivot_row(mtx_matrix_t, mtx_coord_t *,  extern real64 mtx_get_pivot_row(mtx_matrix_t, mtx_coord_t *,
153                                        mtx_range_t *, real64 *,                                        mtx_range_t *, real64 *,
154                                        real64, real64);                                        real64, real64);
155  /**  /**<
156   -$-  value = mtx_get_pivot_col(matrix,coord,colrng,signval,tol,eps)   -$-  value = mtx_get_pivot_col(matrix,coord,colrng,signval,tol,eps)
157   -$-  value = mtx_get_pivot_row(matrix,coord,rowrng,signval,tol,eps)   -$-  value = mtx_get_pivot_row(matrix,coord,rowrng,signval,tol,eps)
158   ***  real64 value, *signval;   ***  real64 value, *signval;
# Line 189  extern int32  mtx_nonzeros_in_region(mtx Line 189  extern int32  mtx_nonzeros_in_region(mtx
189  extern int32  mtx_numbers_in_row(mtx_matrix_t,int32,mtx_range_t *);  extern int32  mtx_numbers_in_row(mtx_matrix_t,int32,mtx_range_t *);
190  extern int32  mtx_numbers_in_col(mtx_matrix_t,int32,mtx_range_t *);  extern int32  mtx_numbers_in_col(mtx_matrix_t,int32,mtx_range_t *);
191  extern int32  mtx_numbers_in_region(mtx_matrix_t, mtx_region_t *);  extern int32  mtx_numbers_in_region(mtx_matrix_t, mtx_region_t *);
192  /**  /**<
193   -$-  count = mtx_nonzeros_in_row(matrix,row,colrng)   -$-  count = mtx_nonzeros_in_row(matrix,row,colrng)
194   -$-  count = mtx_nonzeros_in_col(matrix,col,rowrng)   -$-  count = mtx_nonzeros_in_col(matrix,col,rowrng)
195   -$-  count = mtx_nonzeros_in_region(matrix,reg)   -$-  count = mtx_nonzeros_in_region(matrix,reg)
# Line 249  extern void         mtx_cur_row_vec(mtx_ Line 249  extern void         mtx_cur_row_vec(mtx_
249                                      real64 *, mtx_range_t *);                                      real64 *, mtx_range_t *);
250  extern void         mtx_cur_col_vec(mtx_matrix_t, int32,  extern void         mtx_cur_col_vec(mtx_matrix_t, int32,
251                                      real64 *, mtx_range_t *);                                      real64 *, mtx_range_t *);
252  /**  /**<
253   -$-  mtx_org_row_vec(mtx,row,vec,colrng)   -$-  mtx_org_row_vec(mtx,row,vec,colrng)
254   -$-  mtx_org_col_vec(mtx,col,vec,rowrng)   -$-  mtx_org_col_vec(mtx,col,vec,rowrng)
255   -$-  mtx_cur_row_vec(mtx,row,vec,colrng)   -$-  mtx_cur_row_vec(mtx,row,vec,colrng)
# Line 306  extern mtx_sparse_t *mtx_cur_row_sparse( Line 306  extern mtx_sparse_t *mtx_cur_row_sparse(
306  extern mtx_sparse_t *mtx_cur_col_sparse(mtx_matrix_t, int32,  extern mtx_sparse_t *mtx_cur_col_sparse(mtx_matrix_t, int32,
307                                          mtx_sparse_t * const, mtx_range_t *,                                          mtx_sparse_t * const, mtx_range_t *,
308                                          int);                                          int);
309  /**  /**<
310   -$-  sparse = mtx_org_row_sparse(mtx,row,sparse,colrng,zeroes)   -$-  sparse = mtx_org_row_sparse(mtx,row,sparse,colrng,zeroes)
311   -$-  sparse = mtx_org_col_sparse(mtx,col,sparse,rowrng,zeroes)   -$-  sparse = mtx_org_col_sparse(mtx,col,sparse,rowrng,zeroes)
312   -$-  sparse = mtx_cur_row_sparse(mtx,row,sparse,colrng,zeroes)   -$-  sparse = mtx_cur_row_sparse(mtx,row,sparse,colrng,zeroes)
# Line 348  extern void         mtx_zr_cur_vec_using Line 348  extern void         mtx_zr_cur_vec_using
348                                               real64 *, mtx_range_t *);                                               real64 *, mtx_range_t *);
349  extern void         mtx_zr_cur_vec_using_col(mtx_matrix_t, int32,  extern void         mtx_zr_cur_vec_using_col(mtx_matrix_t, int32,
350                                               real64 *, mtx_range_t *);                                               real64 *, mtx_range_t *);
351  /**  /**<
352   -$-  mtx_zr_org_vec_using_row(mtx,row,vec,colrng)   -$-  mtx_zr_org_vec_using_row(mtx,row,vec,colrng)
353   -$-  mtx_zr_org_vec_using_col(mtx,col,vec,rowrng)   -$-  mtx_zr_org_vec_using_col(mtx,col,vec,rowrng)
354   -$-  mtx_zr_cur_vec_using_row(mtx,row,vec,colrng)   -$-  mtx_zr_cur_vec_using_row(mtx,row,vec,colrng)
# Line 379  extern real64 mtx_sum_abs_in_row(mtx_mat Line 379  extern real64 mtx_sum_abs_in_row(mtx_mat
379                                          const mtx_range_t *);                                          const mtx_range_t *);
380  extern real64 mtx_sum_abs_in_col(mtx_matrix_t, int32,  extern real64 mtx_sum_abs_in_col(mtx_matrix_t, int32,
381                                          const mtx_range_t *);                                          const mtx_range_t *);
382  /**  /**<
383   -$-  sum = mtx_sum_sqrs_in_row(matrix,row,colrng)   -$-  sum = mtx_sum_sqrs_in_row(matrix,row,colrng)
384   -$-  sum = mtx_sum_sqrs_in_col(matrix,col,rowrng)   -$-  sum = mtx_sum_sqrs_in_col(matrix,col,rowrng)
385   -$-  sum = mtx_sum_abs_in_row(matrix,row,colrng)   -$-  sum = mtx_sum_abs_in_row(matrix,row,colrng)
# Line 410  extern real64 mtx_row_dot_full_org_vec(m Line 410  extern real64 mtx_row_dot_full_org_vec(m
410  extern real64 mtx_col_dot_full_org_vec(mtx_matrix_t, int32,  extern real64 mtx_col_dot_full_org_vec(mtx_matrix_t, int32,
411                                               real64 *, mtx_range_t *,                                               real64 *, mtx_range_t *,
412                                               boolean);                                               boolean);
413  /**  /**<
414   -$-  sum = mtx_row_dot_full_org_vec(matrix,row,orgvec,colrng,transpose)   -$-  sum = mtx_row_dot_full_org_vec(matrix,row,orgvec,colrng,transpose)
415   -$-  sum = mtx_col_dot_full_org_vec(matrix,col,orgvec,rowrng,transpose)   -$-  sum = mtx_col_dot_full_org_vec(matrix,col,orgvec,rowrng,transpose)
416   ***  real64 sum;   ***  real64 sum;
# Line 447  extern real64 mtx_row_dot_full_cur_vec(m Line 447  extern real64 mtx_row_dot_full_cur_vec(m
447  extern real64 mtx_col_dot_full_cur_vec(mtx_matrix_t, int32,  extern real64 mtx_col_dot_full_cur_vec(mtx_matrix_t, int32,
448                                               real64 *, mtx_range_t *,                                               real64 *, mtx_range_t *,
449                                               boolean);                                               boolean);
450  /**  /**<
451   -$-  sum = mtx_row_dot_full_cur_vec(matrix,row,currowvec,colrng,transpose)   -$-  sum = mtx_row_dot_full_cur_vec(matrix,row,currowvec,colrng,transpose)
452   -$-  sum = mtx_col_dot_full_cur_vec(matrix,col,curcolvec,rowrng,transpose)   -$-  sum = mtx_col_dot_full_cur_vec(matrix,col,curcolvec,rowrng,transpose)
453   ***  real64 sum;   ***  real64 sum;
# Line 483  extern real64 mtx_col_dot_full_org_custo Line 483  extern real64 mtx_col_dot_full_org_custo
483                            mtx_matrix_t, int32,                            mtx_matrix_t, int32,
484                                               real64 *, mtx_range_t *,                                               real64 *, mtx_range_t *,
485                                               boolean);                                               boolean);
486  /**  /**<
487   -$-  sum =   -$-  sum =
488   mtx_row_dot_full_org_custom_vec(matrix1,matrix2,row,orgvec,colrng,transpose)   mtx_row_dot_full_org_custom_vec(matrix1,matrix2,row,orgvec,colrng,transpose)
489   -$-  sum =   -$-  sum =
# Line 531  extern void         mtx_cur_vec_add_row( Line 531  extern void         mtx_cur_vec_add_row(
531  extern void         mtx_cur_vec_add_col(mtx_matrix_t, real64 *,  extern void         mtx_cur_vec_add_col(mtx_matrix_t, real64 *,
532                                          int32, real64,                                          int32, real64,
533                                          mtx_range_t *,boolean);                                          mtx_range_t *,boolean);
534  /**  /**<
535   -$-  mtx_org_vec_add_row(matrix,tvec,srow,factor,colrng,transpose)   -$-  mtx_org_vec_add_row(matrix,tvec,srow,factor,colrng,transpose)
536   -$-  mtx_org_vec_add_col(matrix,tvec,scol,factor,rowrng,transpose)   -$-  mtx_org_vec_add_col(matrix,tvec,scol,factor,rowrng,transpose)
537   -$-  mtx_cur_vec_add_row(matrix,tvec,srow,factor,colrng,transpose)   -$-  mtx_cur_vec_add_row(matrix,tvec,srow,factor,colrng,transpose)
# Line 570  extern void         mtx_cur_vec_add_col( Line 570  extern void         mtx_cur_vec_add_col(
570   -$-  Does nothing to a bad matrix.   -$-  Does nothing to a bad matrix.
571   **/   **/
572    
573  #endif /* __MTX_QUERY_H_SEEN__ */  #endif /**< __MTX_QUERY_H_SEEN__ */

Legend:
Removed from v.11  
changed lines
  Added in v.33

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