Actual source code: isltog.h

petsc-3.13.6 2020-09-29
Report Typos and Errors

  2: /*
  3:      This is a terrible way of doing "templates" in C.
  4: */
  5: #define PETSCMAP1_a(a,b)  a ## b
  6: #define PETSCMAP1_b(a,b)  PETSCMAP1_a(a,b)
  7: #define PETSCMAPNAME(a)   PETSCMAP1_b(a,GTOLNAME)
  8: #define PETSCMAPTYPE(a)   PETSCMAP1_b(a,GTOLTYPE)

 10: static PetscErrorCode PETSCMAPNAME(ISGlobalToLocalMappingApply)(ISLocalToGlobalMapping mapping,ISGlobalToLocalMappingMode type,
 11:                                                       PetscInt n,const PetscInt idx[],PetscInt *nout,PetscInt idxout[])
 12: {
 13:   PetscInt                             i,nf = 0,tmp,start,end,bs;
 14:   PETSCMAPTYPE(ISLocalToGlobalMapping) *map = (PETSCMAPTYPE(ISLocalToGlobalMapping)*)mapping->data;
 15:   PetscErrorCode                       ierr;

 19:   if (!map) {
 20:     ISGlobalToLocalMappingSetUp(mapping);
 21:     map  = (PETSCMAPTYPE(ISLocalToGlobalMapping) *)mapping->data;
 22:   }
 23:   start = mapping->globalstart;
 24:   end   = mapping->globalend;
 25:   bs    = GTOLBS;

 27:   if (type == IS_GTOLM_MASK) {
 28:     if (idxout) {
 29:       for (i=0; i<n; i++) {
 30:         if (idx[i] < 0)                 idxout[i] = idx[i];
 31:         else if (idx[i] < bs*start)     idxout[i] = -1;
 32:         else if (idx[i] > bs*(end+1)-1) idxout[i] = -1;
 33:         else                            GTOL(idx[i], idxout[i]);
 34:       }
 35:     }
 36:     if (nout) *nout = n;
 37:   } else {
 38:     if (idxout) {
 39:       for (i=0; i<n; i++) {
 40:         if (idx[i] < 0) continue;
 41:         if (idx[i] < bs*start) continue;
 42:         if (idx[i] > bs*(end+1)-1) continue;
 43:         GTOL(idx[i], tmp);
 44:         if (tmp < 0) continue;
 45:         idxout[nf++] = tmp;
 46:       }
 47:     } else {
 48:       for (i=0; i<n; i++) {
 49:         if (idx[i] < 0) continue;
 50:         if (idx[i] < bs*start) continue;
 51:         if (idx[i] > bs*(end+1)-1) continue;
 52:         GTOL(idx[i], tmp);
 53:         if (tmp < 0) continue;
 54:         nf++;
 55:       }
 56:     }
 57:     if (nout) *nout = nf;
 58:   }
 59:   return(0);
 60: }

 62: #undef PETSCMAP1_a
 63: #undef PETSCMAP1_b
 64: #undef PETSCMAPTYPE
 65: #undef PETSCMAPNAME
 66: #undef GTOLTYPE
 67: #undef GTOLNAME
 68: #undef GTOLBS
 69: #undef GTOL