00001 #ifndef STACK3_H
00002 #define STACK3_H
00003 #include "machine.h"
00004
00005 int C2F(readmat) __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
00006 int C2F(creadmat) __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
00007 int C2F(creadcmat) __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
00008 int C2F(creadsmat) __PARAMS((char *name__, integer *m, integer *n, double *scimat, unsigned long name_len));
00009 int C2F(cwritemat) __PARAMS((char *name__, integer *m, integer *n, double *mat, unsigned long name_len));
00010 int C2F(cwritecmat) __PARAMS((char *name__, integer *m, integer *n, double *mat, unsigned long name_len));
00011 int C2F(readchain) __PARAMS((char *name__, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len));
00012 int C2F(creadchain) __PARAMS((char *name__, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len));
00013 int C2F(creadchains) __PARAMS((char *name__, integer *ir, integer *ic, integer *itslen, char *chai, unsigned long name_len, unsigned long chai_len));
00014 int C2F(cwritechain) __PARAMS((char *name__, integer *m, char *chai, unsigned long name_len, unsigned long chai_len));
00015 int C2F(matptr) __PARAMS((char *name__, integer *m, integer *n, integer *lp, unsigned long name_len));
00016 int C2F(cmatptr) __PARAMS((char *name__, integer *m, integer *n, integer *lp, unsigned long name_len));
00017 int C2F(cmatcptr) __PARAMS((char *name__, integer *m, integer *n, integer *lp, unsigned long name_len));
00018 int C2F(cmatsptr) __PARAMS((char *name__, integer *m, integer *n, integer *ix, integer *j, integer *lp, integer *nlr, unsigned long name_len));
00019
00023 int C2F(creadbmat)(char *namex, integer *m, integer *n, int *scimat, unsigned long name_len);
00027 int C2F(cwritebmat)(char *namex, integer *m, integer *n, int *mat, unsigned long name_len);
00031 int C2F(cmatbptr)(char *namex, integer *m,integer *n,integer *lp, unsigned long name_len);
00032
00033 int C2F(str2name) __PARAMS((char *name__, integer *id, unsigned long name_len));
00034 int C2F(objptr) __PARAMS((char *name__, integer *lp, integer *fin, unsigned long name_len));
00035 int C2F(putvar) __PARAMS((int *number, char *namex, unsigned long name_len ));
00036
00037
00046 int getlengthchain(char *namex);
00047
00048 #endif
00049
00050
