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