/[escript]/branches/domexper/finley/src/Util.c
ViewVC logotype

Diff of /branches/domexper/finley/src/Util.c

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

trunk/finley/src/Util.c revision 3232 by jfenwick, Thu Jan 28 02:03:15 2010 UTC branches/domexper/finley/src/Util.c revision 3234 by jfenwick, Mon Oct 4 01:46:30 2010 UTC
# Line 25  Line 25 
25  #include <omp.h>  #include <omp.h>
26  #endif  #endif
27    
28    #include "esysUtils/mem.h"
29    #include "esysUtils/index.h"
30    #include <string.h>   /* for memcpy */
31    
32    
33  /**************************************************************/  /**************************************************************/
34    
35  /*   returns true if any of the values in the short array values is not equalt to Zero */  /*   returns true if any of the values in the short array values is not equalt to Zero */
# Line 536  index_t Finley_Util_cumsum(dim_t N,index Line 541  index_t Finley_Util_cumsum(dim_t N,index
541     #endif     #endif
542     return out;     return out;
543  }  }
544  void Finley_Util_setValuesInUse(const index_t *values, const dim_t numValues, dim_t *numValuesInUse, index_t **valuesInUse, Paso_MPIInfo* mpiinfo)  void Finley_Util_setValuesInUse(const index_t *values, const dim_t numValues, dim_t *numValuesInUse, index_t **valuesInUse, Esys_MPIInfo* mpiinfo)
545  {  {
546     dim_t i;     dim_t i;
547     index_t lastFoundValue=INDEX_T_MIN, minFoundValue, local_minFoundValue, *newValuesInUse=NULL;     index_t lastFoundValue=INDEX_T_MIN, minFoundValue, local_minFoundValue, *newValuesInUse=NULL;
# Line 563  void Finley_Util_setValuesInUse(const in Line 568  void Finley_Util_setValuesInUse(const in
568              }              }
569    
570           }           }
571           #ifdef PASO_MPI           #ifdef ESYS_MPI
572           local_minFoundValue=minFoundValue;           local_minFoundValue=minFoundValue;
573           MPI_Allreduce(&local_minFoundValue,&minFoundValue, 1, MPI_INT, MPI_MIN, mpiinfo->comm );           MPI_Allreduce(&local_minFoundValue,&minFoundValue, 1, MPI_INT, MPI_MIN, mpiinfo->comm );
574           #endif           #endif
# Line 588  void Finley_Util_setValuesInUse(const in Line 593  void Finley_Util_setValuesInUse(const in
593  }  }
594    
595    
596  #ifdef PASO_MPI  #ifdef ESYS_MPI
597  void Finley_printDoubleArray( FILE *fid, dim_t n, double *array, char *name  )  void Finley_printDoubleArray( FILE *fid, dim_t n, double *array, char *name  )
598  {  {
599    index_t i;    index_t i;

Legend:
Removed from v.3232  
changed lines
  Added in v.3234

  ViewVC Help
Powered by ViewVC 1.1.26