Actual source code: ramgfunc.h
1: /* $Id: ramgfunc.h,v 1.3 2000/11/28 17:32:36 bsmith Exp $ */
2: #ifndef RAMGFUNC_H
3: #define RAMGFUNC_H
4: #include petsc.h
6: struct RAMG_PARAM{
7: /*..Class 1 RAMG parameters..*/
8: int NDA;
9: int NDIA;
10: int NDJA;
11: int NDU;
12: int NDF;
13: int NDIG;
14: int MATRIX;
15: /*..Class 2 RAMG parameters..*/
16: int ISWTCH;
17: int IOUT;
18: int IPRINT;
19: /*..Class 3 RAMG parameters..*/
20: int LEVELX;
21: int IFIRST;
22: int NCYC;
23: int MADAPT;
24: int NRD;
25: int NSOLCO;
26: int NRU;
27: double EPS;
28: /*..Class 4 RAMG parameters..*/
29: int NWT;
30: int NTR;
31: double ECG1;
32: double ECG2;
33: double EWT2;
34: };
36: EXTERN_C_BEGIN
37: #if defined(PETSC_HAVE_FORTRAN_CAPS)
38: #define amg1r5_ AMG1R5
39: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
40: #define amg1r5_ amg1r5
41: #endif
42: extern void amg1r5_(double* a,int* ia,int* ja,double* u,double* f,
43: int *ig,int* nda,int* ndia,int* ndja,int* ndu,int* ndf,
44: int* ndig,int* nnu, int* matrix,int* iswtch,int* iout,
45: int* iprint,int* levelx,int* ifirst,int* ncyc,
46: double* eps,int* madapt,int* nrd,int* nsolco,int* nru,
47: double* ecg1,double* ecg2,double* ewt2,int* nwt,int* ntr,
48: int* ierr);
49: EXTERN_C_END
51: /* dummy param for SAMG */
52: struct SAMG_PARAM{
53: int dummy;
54: };
56: #endif//RAMGFUNC_H