1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#ifndef __CC_PASS2_H__
#define __CC_PASS2_H__
#define true 1
#define false 0
#define TEST (bllst2==NULL) && (bllst3==NULL) && (bllst4==NULL) && (bllst5==NULL) && (bllst10==NULL) && (bllst11==NULL) && (bllst12==NULL) && (bllst13==NULL)
#ifdef FORDLL
#define IMPORT __declspec (dllimport)
#else
#define IMPORT extern
#endif
extern int C2F(isort)();
extern double C2F(dsort)();
static int* GetCollVect(int* vect,int* vectid,int numcoll);
static int* FindDif(int*vect,int val);
static int* GetPartVect(int* vect,int idebut,int taille);
static double* GetPartVectd(double* vect,int idebut,int taille);
static int OR(int* Vect);
int Max1(int* vect);
static int Sign(int x);
static int Min1(int* vect);
static int AND(int* Vect);
static int* FindEg(int* vect,int val);
static int* Duplicataa(int* v,int* w);
static int power (int base, int n);
static int* FindInfEg(int* vect,int val);
static int* FindInf(int* vect,int val);
static int* FindSupEgd(double* vect,int val);
static int* FindSup(int* vect,int val);
static int Sum (int *vect);
static int Norm (int *vect);
static void CumSum (int* vect);
static int* VecEg1 (int* vect);
static void Setmem (int* vect,int val);
static void Inv(int* vect);
static void Incr2(int* vect,int j);
static void Incr1(int* vect,int j);
static double powerd (double base, int n);
static void Invd(double* Vect);
extern int Message(char* code);
extern int badconnection(int* path_out,int prt_out,int nout,int* path_in,int prt_in,int nin);
extern int connection(int* path_out,int* path_in);
extern void sciprint __PARAMS((char *fmt, ...));
extern int C2F(gsort) __PARAMS((int *xI,double *xD,int *ind,int *iflag, int *m,int *n,
char *type,char *iord));
typedef struct
{
int* col1;
int* col2;
int* col3;
int* col4;
} Mat4C;
typedef struct
{
int* col1;
int* col2;
} Mat2C;
typedef struct
{
double* col1;
double* col2;
double* col3;
} Mat3C;
int mini_extract_info(int* bllst2,int** bllst4,char **bllst10,int* bllst12,int* bllst2ptr,int* bllst3ptr,int** bllst4ptr,
int* typ_x,int* connectmat,int* clkconnect,int **inplnk,int **outlnk,int** typ_l,int** typ_r,int** typ_m,
int** tblock,int** typ_cons,int** typ_zx,int* nzcross,int* ok);
int pak_ersi(int** clkconnect,int* typ_r,int* typ_l,int* outoin,int* outoinptr,int* tblock,
int* typ_cons,int* bllst5ptr,int** exe_cons,int nblk);
int critical_events(int* connectmat,int* clkconnect,int *bllst12,int *typ_r,int *typ_l,int *typ_zx,int *outoin,
int *outoinptr,int *bllst5ptr,int **critev);
int make_ptr(char** bllst10,int** typ_l,int** typ_m);
int cleanup(int** clkconnect);
int paksazi(char*** bllst111,int** bllst112,int** bllst2,int** bllst3,int** bllst4,int** bllst5,int**bllst9,
char*** bllst10,int** bllst12,int** nzcross,int** bllst2ptr,int** bllst3ptr,int** bllst4ptr,int** bllst5ptr,
int** bllst9ptr,int** connectmat,int** clkconnect,int* typ_l,int* typ_m,int* done,int* ok,
int* need_newblk,int** corinvec,int** corinvptr,int** critev,int* prime_pointer,
int** prime_act);
int extract_info(int* bllst2,int* bllst3,int* bllst5,char **bllst10,double* bllst11,int* bllst12,int* bllst2ptr,
int* bllst3ptr,int* bllst4ptr,int* bllst5ptr,int* bllst11ptr,int* connectmat,
int* clkconnect,int** lnkptr,int** inplnk,int** outlnk,int* nzcross,int* nmode,int** typ_s,int** typ_x,int** typ_m,
double** initexe,int** bexe,int** boptr,int** blnk,int** blptr,int* ok,int* corinvec,int* corinvptr);
int conn_mat(int* inplnk,int* outlnk,int* bllst2ptr,int* bllst3ptr,int** outoin,int** outoinptr,int* nblk);
int synch_clkconnect(int* typ_s,int* clkconnect,int** evoutoin,int** evoutoinptr);
void *discard(int* bllst5ptr,int* clkconnect,int* exe_cons,int** ordptr1,int** execlk,int** clkconectj0,
int** clkconnectj_cons );
int scheduler(int* bllst12,int* bllst5ptr,int* execlk,int* execlk0,int* execlk_cons,int* ordptr1,
int* outoin,int* outoinptr,int* evoutoin,int* evoutoinptr,int** typ_z,int** typ_x,int* typ_s,int* bexe,
int* boptr,int* blnk,int* blptr,int** ordptr2,int** ordclk,int** cord,int** iord,int** oord,int** zord,
int* ok,int* nzcross);
int init_agenda(double* initexe,int* bllst5ptr,double** tevts,int** evtspt,int* pointi);
int adjust_inout(int* bllst2,int* bllst3,int* bllst2ptr,int* bllst3ptr,int* nzcross,int* nmode,int* connectmat,int* ok,int* corinvec,int* corinvptr,int nblk1);
int tree4(int* vec,int *nd,int nnd,int* outoin,int* outoinptr,int* typ_r,int** r);
int tree2(int* vect,int nb,int* wec,int* ind,int* deput,int* outoin,int* outoinptr,int** ord,int* ok);
int tree3(int*vec,int nb,int* deput,int* typl,int* bexe,int* boptr,int* blnk,int* blptr,int** ord,int* ok);
#endif /* __CC_PASS2_H__ */
|
