00001 #ifndef LIBINTER_SCI
00002 #define LIBINTER_SCI
00003
00004 #include "machine.h"
00005 #include "stack-c.h"
00006
00007 int C2F(erro) __PARAMS ((char *str, unsigned int));
00008 void C2F(out) __PARAMS ((char *str,unsigned int));
00009 void C2F(cchar) __PARAMS (( int *n, char **ip, int *op));
00010 void C2F(ccharf) __PARAMS (( int *n, char **ip, int *op));
00011 void C2F(cdouble) __PARAMS (( int *n, double *ip[], double *op));
00012 void C2F(cdoublef) __PARAMS (( int *n, double *ip[], double *op));
00013 void C2F(cint) __PARAMS (( int *n, int *ip[], double *op));
00014 void C2F(cintf) __PARAMS (( int *n, int *ip[], double *op));
00015 void C2F(cfloat) __PARAMS (( int *n, float *ip[], double *op));
00016 void C2F(cfloatf) __PARAMS (( int *n, float *ip[], double *op));
00017 void C2F(cbool) __PARAMS (( int *n, int *ip[], int *op));
00018 void C2F(cboolf) __PARAMS (( int *n, int *ip[], int *op));
00019 void cerro __PARAMS ((char *str));
00020 void Cout __PARAMS ((char *str));
00021 void C2F(cstringf) __PARAMS (( char ***ip,int *sciptr,int *m, int*n,int *max,int *ierr));
00022 int C2F(stringc) __PARAMS ((int *sciptr, char ***cptr, int *ierr));
00023 void C2F(dbl2cdbl) __PARAMS ((int *n,double *ip[], double *op));
00024 void C2F(freeptr) __PARAMS (( double *ip[]));
00025 void C2F(int2cint) __PARAMS (( int *n, integer *ip[], integer *op));
00026 int C2F(csparsef) __PARAMS ((SciSparse **x,int *mnel,int *icol,double *R,double *I));
00027 SciSparse *NewSparse __PARAMS((int *,int *,int *,int *));
00028 void FreeSparse(SciSparse *x);
00029 void FreeRhsSVar(char **ptrStr);
00030
00031 #endif
