← Back to branch summary

~vcs-imports/escript-finley/trunk

« back to all changes in this revision

Viewing changes to paso/src/SystemMatrix_MIS.c

  • Committer: jfenwick
  • Date: 2010-10-11 01:48:14 UTC
  • Revision ID: svn-v4:77569008-7704-0410-b7a0-a92fef0b09fd:trunk:3259
Merging dudley and scons updates from branches

Show diffs side-by-side

added added

removed removed

Lines of Context:
paso/src/SystemMatrix_MIS.c
48
48
    index_t k=0;
49
49
    int mpi_iam = 0;    /* rank within world */
50
50
    int mpi_num = 1;    /* size of the world */
51
 
    #ifdef PASO_MPI
 
51
    #ifdef ESYS_MPI
52
52
    double *remote_values=NULL;
53
53
    #endif
54
54
    
55
55
    if (A->type!=MATRIX_FORMAT_DEFAULT) {               /* We only support CSR matricies here */
56
 
        Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_CalcBorderMIS: Symmetric matrix patterns are not supported.");      
 
56
        Esys_setError(TYPE_ERROR,"Paso_SystemMatrix_CalcBorderMIS: Symmetric matrix patterns are not supported.");      
57
57
    }
58
58
    
59
 
    #ifdef PASO_MPI
 
59
    #ifdef ESYS_MPI
60
60
    MPI_Comm_size(MPI_COMM_WORLD, &mpi_num);
61
61
    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_iam);
62
62
    #endif
77
77
                }     /* if avail */
78
78
             }   /* walk border */
79
79
        } /* if not me */
80
 
        #ifdef PASO_MPI
 
80
        #ifdef ESYS_MPI
81
81
        /* Now we set the weights using the coupler */
82
82
        remote_values=NULL;
83
83
          /* start exchange */
123
123
    int i,j,k, retry;
124
124
    char done=1;
125
125
    double seed=Paso_Pattern_mis_seed;
126
 
    Paso_resetError();
 
126
    Esys_resetError();
127
127
    border=Paso_SparseMatrix_getBorderNodes(A, &count);
128
 
    if (!Paso_noError()) {
 
128
    if (!Esys_noError()) {
129
129
        *set=NULL;
130
130
        return 0;
131
131
    }
212
212
    MEMFREE(weights);
213
213
    MEMFREE(inborder);
214
214
    if (done==0) {
215
 
        Paso_setError(NO_PROGRESS_ERROR,"Error in MIS - no progress.");
 
215
        Esys_setError(NO_PROGRESS_ERROR,"Error in MIS - no progress.");
216
216
        MEMFREE(mis);
217
217
        *set=NULL;
218
218
        return 0;