00001
00007 #if !defined(INC_READHBPAT_H)
00008
00009 #define INC_READHBPAT_H
00010
00011 #include <oski/common.h>
00012 #include <oski/mangle.h>
00013
00014 #if defined(DO_NAME_MANGLING)
00015
00017 #define readhb_pattern MANGLE_(readhb_pattern)
00018 #define readhb_pattern_matrix MANGLE_(readhb_pattern_matrix)
00019 #define readhb_pattern_matrix_nnz MANGLE_(readhb_pattern_matrix_nnz)
00020 #define readhb_expand_symm MANGLE_(readhb_expand_symm)
00021
00022 #endif
00023
00029 int readhb_pattern (const char *filename,
00030 oski_index_t * p_m, oski_index_t * p_n,
00031 oski_index_t * p_nnz, oski_index_t ** p_ptr,
00032 oski_index_t ** p_ind, char *mattype);
00033
00037 int readhb_expand_symm (oski_index_t n, oski_index_t base, int is_herm,
00038 const oski_index_t* Sptr, const oski_index_t* Sind,
00039 const oski_value_t* Sval,
00040 oski_index_t** p_Aptr, oski_index_t** p_Aind,
00041 oski_value_t** p_Aval);
00042
00043 #include <oski/matrix.h>
00044
00049 oski_matrix_t readhb_pattern_matrix (const char *filename,
00050 oski_index_t * p_m, oski_index_t * p_n,
00051 char *p_mattype,
00052 int expand_symm);
00053
00058 oski_matrix_t readhb_pattern_matrix_nnz (const char *filename,
00059 oski_index_t * p_m,
00060 oski_index_t * p_n,
00061 oski_index_t * p_nnz_stored,
00062 oski_index_t * p_nnz_true,
00063 char *p_mattype,
00064 int expand_symm);
00065
00066 #endif
00067
00068
