/[escript]/trunk/escript/src/Utils.cpp
ViewVC logotype

Diff of /trunk/escript/src/Utils.cpp

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

trunk/escript/src/Data/Utils.cpp revision 391 by gross, Tue Dec 20 05:36:50 2005 UTC trunk/escript/src/Utils.cpp revision 1561 by ksteube, Wed May 21 06:58:52 2008 UTC
# Line 1  Line 1 
 /*  
  ******************************************************************************  
  *                                                                            *  
  *       COPYRIGHT  ACcESS 2004 -  All Rights Reserved                        *  
  *                                                                            *  
  * This software is the property of ACcESS. No part of this code              *  
  * may be copied in any form or by any means without the expressed written    *  
  * consent of ACcESS.  Copying, use or modification of this software          *  
  * by any unauthorised person is illegal unless that person has a software    *  
  * license agreement with ACcESS.                                             *  
  *                                                                            *  
  ******************************************************************************  
 */  
1    
2  #include "escript/Data/Utils.h"  /* $Id$ */
3    
4    /*******************************************************
5     *
6     *           Copyright 2003-2007 by ACceSS MNRF
7     *       Copyright 2007 by University of Queensland
8     *
9     *                http://esscc.uq.edu.au
10     *        Primary Business: Queensland, Australia
11     *  Licensed under the Open Software License version 3.0
12     *     http://www.opensource.org/licenses/osl-3.0.php
13     *
14     *******************************************************/
15    
16    #include "Utils.h"
17    #include "DataVector.h"
18    
19  #ifdef _OPENMP  #ifdef _OPENMP
20  #include <omp.h>  #include <omp.h>
21  #endif  #endif
22    
23    #ifdef PASO_MPI
24    #include <mpi.h>
25    #endif
26    
27  namespace escript {  namespace escript {
28    
29    int getSvnVersion()
30    {
31    #ifdef SVN_VERSION
32      return SVN_VERSION;
33    #else
34      return 0;
35    #endif
36    }
37    
38    void printParallelThreadCnt()
39    {
40      int mpi_iam=0, mpi_num=1;
41    
42      #ifdef PASO_MPI
43      MPI_Comm_rank(MPI_COMM_WORLD, &mpi_iam);
44      MPI_Comm_size(MPI_COMM_WORLD, &mpi_num);
45      #endif
46    
47      #ifdef _OPENMP
48      #pragma omp parallel
49      #endif
50      {
51        int omp_iam=0, omp_num=1;
52        #ifdef _OPENMP
53        omp_iam = omp_get_thread_num(); /* Call in a parallel region */
54        omp_num = omp_get_num_threads();
55        #endif
56        printf("printParallelThreadCounts: OpenMP=%d/%d MPI=%d/%d\n", omp_iam, omp_num, mpi_iam, mpi_num);
57      }
58    }
59    
60  void setNumberOfThreads(const int num_threads)  void setNumberOfThreads(const int num_threads)
61  {  {
62    

Legend:
Removed from v.391  
changed lines
  Added in v.1561

  ViewVC Help
Powered by ViewVC 1.1.26