Scilab [trunk]: scilab/modules/sparse/includes/sp.h Source File

00001 #ifndef __SP_H__
00002 #define __SP_H__
00003 
00004 #define SQR(x) ((x)*(x))
00005 #define MAX(x,y)  ((x) > (y) ? (x) : (y))
00006 #define MIN(x,y)  ((x) < (y) ? (x) : (y))
00007 
00008 #define NB 32            /* block size for dgels */
00009 #define MINABSTOL 1e-8 
00010 #define MAXITERS 100
00011 #define TOLC 1e-5        /* tolerance used for dual infeasibility */
00012 #define SIGTOL 1e-5      /* tolerance used for detecting zero steps 
00013                           * dF or dZ */ 
00014 #define MINRCOND 1e-8    /* minimum rcond to declare F_i dependent */
00015 
00016 /* BLAS 1 */
00017 double dnrm2_( );
00018 double ddot_( );
00019 void dcopy_( );
00020 void daxpy_( );
00021 void dscal_( );
00022 
00023 /* BLAS 2 */
00024 void dgemv_( );
00025 void dspmv_( );
00026 
00027 /* BLAS 3 */
00028 void dgemm_( );
00029 
00030 /* LAPACK */
00031 void dgels_( );
00032 void dspgst_( );
00033 void dspev_( );
00034 void dspgv_( );
00035 void dtrcon_( );
00036 
00037 int sp( /* int m, int L, double *F, int *blck_szs, double *c, 
00038            double *x, double *Z, double *ul, double nu, double abstol, 
00039            double reltol, double tv, int *iters, double *work, 
00040            int lwork, int *iwork, int *info */ );
00041 
00042 #endif /* __SP_H__ */