/[escript]/trunk/paso/src/AMG.c
ViewVC logotype

Diff of /trunk/paso/src/AMG.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3402 by gross, Tue Dec 7 07:36:12 2010 UTC revision 3403 by gross, Tue Dec 7 08:13:51 2010 UTC
# Line 59  index_t Paso_Preconditioner_LocalAMG_get Line 59  index_t Paso_Preconditioner_LocalAMG_get
59     }     }
60  }  }
61  double Paso_Preconditioner_LocalAMG_getCoarseLevelSparsity(const Paso_Preconditioner_LocalAMG * in) {  double Paso_Preconditioner_LocalAMG_getCoarseLevelSparsity(const Paso_Preconditioner_LocalAMG * in) {
62     if (in->AMG_C == NULL) {        if (in->AMG_C == NULL) {
63        return DBLE(in->A_C->pattern->len)/DBLE(in->A_C->numRows)/DBLE(in->A_C->numRows);       if (in->A_C == NULL) {
64     } else {          return 1.;
65        return Paso_Preconditioner_LocalAMG_getCoarseLevelSparsity(in->AMG_C);       } else {
66     }          return DBLE(in->A_C->pattern->len)/DBLE(in->A_C->numRows)/DBLE(in->A_C->numRows);
67         }
68          } else {
69            return Paso_Preconditioner_LocalAMG_getCoarseLevelSparsity(in->AMG_C);
70          }
71  }  }
72  dim_t Paso_Preconditioner_LocalAMG_getNumCoarseUnknwons(const Paso_Preconditioner_LocalAMG * in) {  dim_t Paso_Preconditioner_LocalAMG_getNumCoarseUnknwons(const Paso_Preconditioner_LocalAMG * in) {
73     if (in->AMG_C == NULL) {     if (in->AMG_C == NULL) {
74        return in->A_C->numRows;        if (in->A_C == NULL) {
75         return 0;
76          } else {
77         return in->A_C->numRows;
78          }
79     } else {     } else {
80        return Paso_Preconditioner_LocalAMG_getNumCoarseUnknwons(in->AMG_C);       return Paso_Preconditioner_LocalAMG_getNumCoarseUnknwons(in->AMG_C);
81     }     }
82  }  }
83  /*****************************************************************  /*****************************************************************

Legend:
Removed from v.3402  
changed lines
  Added in v.3403

  ViewVC Help
Powered by ViewVC 1.1.26