Scilab [trunk]: scilab/modules/optimization/includes/spd.h Source File

00001 /* Copyright INRIA */
00002 #ifndef __SPD_H__
00003 #define __SPD_H__
00004 
00005 #include "machine.h"
00006 
00007 #define SQR(x) ((x)*(x))
00008 #define MAX(x,y)  ((x) > (y) ? (x) : (y))
00009 #define MIN(x,y)  ((x) < (y) ? (x) : (y))
00010 
00011 #define NB 32            /* block size for dgels */
00012 #define MINABSTOL 1e-8 
00013 #define MAXITERS 100
00014 #define TOLC 1e-5        /* tolerance used for dual infeasibility */
00015 #define SIGTOL 1e-5      /* tolerance used for detecting zero steps 
00016                           * dF or dZ */ 
00017 #define MINRCOND 1e-8    /* minimum rcond to declare F_i dependent */
00018 
00019 /* BLAS 1 */
00020 double F2C(dnrm2)( );
00021 double F2C(ddot)( );
00022 void F2C(dcopy)( );
00023 void F2C(daxpy)( );
00024 void F2C(dscal)( );
00025 
00026 /* BLAS 2 */
00027 void F2C(dgemv)( );
00028 void F2C(dspmv)( );
00029 
00030 /* BLAS 3 */
00031 void F2C(dgemm)( );
00032 
00033 /* LAPACK */
00034 void F2C(dgels)( );
00035 void F2C(dspgst)( );
00036 void F2C(dspev)( );
00037 void F2C(dspgv)( );
00038 void F2C(dtrcon)( );
00039 double F2C(dlamch)( );
00040 
00041 int sp( /* int m, int L, double *F, int *blck_szs, double *c, 
00042            double *x, double *Z, double *ul, double nu, double abstol, 
00043            double reltol, double tv, int *iters, double *work, 
00044            int lwork, int *iwork, int *info */ );
00045 
00046 #endif /* __SPD_H__ */