scilab » modules » linear_algebra » src » c

schurtable.c File Reference

#include <string.h>
#include "FTables.h"
#include "link.h"

Include dependency graph for schurtable.c:

Go to the source code of this file.

Defines

#define ARGS_fschur
#define ARGS_schsel
#define ARGS_zchsel
#define ARGS_gshsel
#define ARGS_gzhsel

Typedefs

typedef integer *(*) fschurf ()
typedef integer *(*) schself ()
typedef integer *(*) zchself ()
typedef integer *(*) gshself ()
typedef integer *(*) gzhself ()

Functions

static void Emptyfunc __PARAMS ((void))
void C2F() folhp (ARGS_fschur)
void C2F() find (ARGS_fschur)
void C2F() sb02mv (ARGS_schsel)
void C2F() sb02mw (ARGS_schsel)
void C2F() zb02mv (ARGS_zchsel)
void C2F() zb02mw (ARGS_zchsel)
void C2F() sb02ow (ARGS_gshsel)
void C2F() sb02ox (ARGS_gshsel)
void C2F() zb02ow (ARGS_gzhsel)
void C2F() zb02ox (ARGS_gzhsel)
integer *C2F() schsel (double *alpha, double *beta)
void C2F() setschsel (int *len, char *name, int *rep)
integer *C2F() zchsel (doublecmplx *alpha)
void C2F() setzchsel (int *len, char *name, int *rep)
integer *C2F() gshsel (double *alphar, double *alphai, double *beta)
void C2F() setgshsel (int *len, char *name, int *rep)
integer *C2F() gzhsel (doublecmplx *alpha, doublecmplx *beta)
void C2F() setgzhsel (int *len, char *name, int *rep)
integer *C2F() fschur (integer *lsize, double *alpha, double *beta, double *s, double *p)
void C2F() setfschur (char *name, int *rep)

Variables

FTAB FTab_fschur []
FTAB FTab_schsel []
FTAB FTab_zchsel []
FTAB FTab_gshsel []
FTAB FTab_gzhsel []
static schself schselfonc
static zchself zchselfonc
static gshself gshselfonc
static gzhself gzhselfonc
static fschurf fschurfonc

Define Documentation

#define ARGS_fschur

Definition at line 16 of file schurtable.c.

#define ARGS_gshsel

Definition at line 52 of file schurtable.c.

#define ARGS_gzhsel

Definition at line 64 of file schurtable.c.

#define ARGS_schsel

Definition at line 28 of file schurtable.c.

#define ARGS_zchsel

Definition at line 40 of file schurtable.c.

Typedef Documentation

typedef integer*(*) fschurf()

Definition at line 17 of file schurtable.c.

typedef integer*(*) gshself()

Definition at line 53 of file schurtable.c.

typedef integer*(*) gzhself()

Definition at line 65 of file schurtable.c.

typedef integer*(*) schself()

Definition at line 29 of file schurtable.c.

typedef integer*(*) zchself()

Definition at line 41 of file schurtable.c.

Function Documentation

static void Emptyfunc __PARAMS ( (void)   )  [static]

Definition at line 69 of file schurtable.c.

00069 {}

void C2F() find ( ARGS_fschur   ) 

Referenced by Replace().

Here is the caller graph for this function:

void C2F() folhp ( ARGS_fschur   ) 

integer* C2F() fschur ( integer *  lsize,
double *  alpha,
double *  beta,
double *  s,
double *  p 
)

function call : fschur

Definition at line 241 of file schurtable.c.

References p.

00242 {
00243         return((*fschurfonc)(lsize,alpha,beta,s,p));
00244 }

integer* C2F() gshsel ( double *  alphar,
double *  alphai,
double *  beta 
)

function call : gshsel

Definition at line 187 of file schurtable.c.

00188 {
00189         return((*gshselfonc)(alphar,alphai,beta));
00190 }

integer* C2F() gzhsel ( doublecmplx *  alpha,
doublecmplx *  beta 
)

function call : gzhsel

Definition at line 214 of file schurtable.c.

00215 {
00216         return((*gzhselfonc)(alpha,beta));
00217 }

void C2F() sb02mv ( ARGS_schsel   ) 

void C2F() sb02mw ( ARGS_schsel   ) 

void C2F() sb02ow ( ARGS_gshsel   ) 

void C2F() sb02ox ( ARGS_gshsel   ) 

integer* C2F() schsel ( double *  alpha,
double *  beta 
)

function call : schsel

Definition at line 133 of file schurtable.c.

00134 {
00135         return((*schselfonc)(alpha,beta));
00136 }

void C2F() setfschur ( char *  name,
int *  rep 
)

fixes the function associated to name

Definition at line 248 of file schurtable.c.

References FTab_fschur, rep, and SetFunction().

00249 {
00250         if (strncmp(name,"c",1)== 0 || strncmp(name,"cont",3)== 0 )
00251                 fschurfonc = (fschurf) SetFunction("folhp",rep,FTab_fschur);
00252         else if (strncmp(name,"d",1)== 0 || strncmp(name,"disc",4)== 0 )
00253                 fschurfonc = (fschurf) SetFunction("find",rep,FTab_fschur);
00254         else 
00255                 fschurfonc = (fschurf) SetFunction(name,rep,FTab_fschur);
00256 }

Here is the call graph for this function:

void C2F() setgshsel ( int *  len,
char *  name,
int *  rep 
)

fixes the function associated to name

Definition at line 194 of file schurtable.c.

References FTab_gshsel, rep, and SetFunction().

00195 {
00196         if ( ((strncmp(name,"c",1)== 0) && (*len==1)) || strncmp(name,"cont",3)== 0 )
00197                 gshselfonc = (gshself) SetFunction("sb02ow",rep,FTab_gshsel);
00198         else if ( ( (strncmp(name,"d",1)== 0) && (*len==1) ) || strncmp(name,"disc",4)== 0 )
00199                 gshselfonc = (gshself) SetFunction("sb02ox",rep,FTab_gshsel);
00200         else 
00201                 gshselfonc = (gshself) SetFunction(name,rep,FTab_gshsel);
00202 }

Here is the call graph for this function:

void C2F() setgzhsel ( int *  len,
char *  name,
int *  rep 
)

fixes the function associated to name

Definition at line 221 of file schurtable.c.

References FTab_gzhsel, rep, and SetFunction().

00222 {
00223         if ( ((strncmp(name,"c",1)== 0) && (*len==1)) || strncmp(name,"cont",3)== 0 )
00224                 gzhselfonc = (gzhself) SetFunction("zb02ow",rep,FTab_gzhsel);
00225         else if ( ( (strncmp(name,"d",1)== 0) && (*len==1) ) || strncmp(name,"disc",4)== 0 )
00226                 gzhselfonc = (gzhself) SetFunction("zb02ox",rep,FTab_gzhsel);
00227         else 
00228                 gzhselfonc = (gzhself) SetFunction(name,rep,FTab_gzhsel);
00229 }

Here is the call graph for this function:

void C2F() setschsel ( int *  len,
char *  name,
int *  rep 
)

fixes the function associated to name

Definition at line 140 of file schurtable.c.

References FTab_schsel, rep, and SetFunction().

00141 {
00142         if ( ((strncmp(name,"c",1)== 0 ) && (*len==1)) || strncmp(name,"cont",4)== 0 )
00143                 schselfonc = (schself) SetFunction("sb02mv",rep,FTab_schsel);
00144         else if ( ((strncmp(name,"d",1)== 0) && (*len==1)) || strncmp(name,"disc",4)== 0 )
00145                 schselfonc = (schself) SetFunction("sb02mw",rep,FTab_schsel);
00146         else 
00147                 schselfonc = (schself) SetFunction(name,rep,FTab_schsel);
00148 }

Here is the call graph for this function:

void C2F() setzchsel ( int *  len,
char *  name,
int *  rep 
)

fixes the function associated to name

Definition at line 167 of file schurtable.c.

References FTab_zchsel, rep, and SetFunction().

00168 {
00169         if ( ((strncmp(name,"c",1)== 0) && (*len==1)) || strncmp(name,"cont",3)== 0 )
00170                 zchselfonc = (zchself) SetFunction("zb02mv",rep,FTab_zchsel);
00171         else if ( ( (strncmp(name,"d",1)== 0) && (*len==1) ) || strncmp(name,"disc",4)== 0 )
00172                 zchselfonc = (zchself) SetFunction("zb02mw",rep,FTab_zchsel);
00173         else 
00174                 zchselfonc = (zchself) SetFunction(name,rep,FTab_zchsel);
00175 }

Here is the call graph for this function:

void C2F() zb02mv ( ARGS_zchsel   ) 

void C2F() zb02mw ( ARGS_zchsel   ) 

void C2F() zb02ow ( ARGS_gzhsel   ) 

void C2F() zb02ox ( ARGS_gzhsel   ) 

integer* C2F() zchsel ( doublecmplx *  alpha  ) 

function call : zchsel

Definition at line 160 of file schurtable.c.

00161 {
00162         return((*zchselfonc)(alpha));
00163 }

Variable Documentation

fschurf fschurfonc [static]

the current function fixed by setsolvf

Definition at line 237 of file schurtable.c.

FTAB FTab_fschur[]

Initial value:

{
        {"find", (voidf)  C2F(find)},
        {"folhp", (voidf)  C2F(folhp)},
        {(char *) 0, (voidf) 0}
}

Definition at line 75 of file schurtable.c.

Referenced by setfschur().

FTAB FTab_gshsel[]

Initial value:

{
        {"sb02ow", (voidf)  C2F(sb02ow)},
        {"sb02ox", (voidf)  C2F(sb02ox)},
        {(char *) 0, (voidf) 0}
}

Definition at line 105 of file schurtable.c.

FTAB FTab_gzhsel[]

Initial value:

{
        {"zb02ow", (voidf)  C2F(zb02ow)},
        {"zb02ox", (voidf)  C2F(zb02ox)},
        {(char *) 0, (voidf) 0}
}

Definition at line 115 of file schurtable.c.

FTAB FTab_schsel[]

Initial value:

{
        {"sb02mv", (voidf)  C2F(sb02mv)},
        {"sb02mw", (voidf)  C2F(sb02mw)},
        {(char *) 0, (voidf) 0}
}

Definition at line 85 of file schurtable.c.

FTAB FTab_zchsel[]

Initial value:

{
        {"zb02mv", (voidf)  C2F(zb02mv)},
        {"zb02mw", (voidf)  C2F(zb02mw)},
        {(char *) 0, (voidf) 0}
}

Definition at line 95 of file schurtable.c.

gshself gshselfonc [static]

the current function fixed by setgshsel

Definition at line 183 of file schurtable.c.

gzhself gzhselfonc [static]

the current function fixed by setgzhsel

Definition at line 210 of file schurtable.c.

schself schselfonc [static]

the current function fixed by setschsel

Definition at line 129 of file schurtable.c.

zchself zchselfonc [static]

the current function fixed by setzschsel

Definition at line 156 of file schurtable.c.

Generated on Sun Mar 4 16:09:53 2007 for Scilab [trunk] by  doxygen 1.5.1