/[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

revision 478 by jgs, Tue Jan 31 02:21:49 2006 UTC revision 1561 by ksteube, Wed May 21 06:58:52 2008 UTC
# Line 1  Line 1 
1  /*  
2   ******************************************************************************  /* $Id$ */
3   *                                                                            *  
4   *       COPYRIGHT  ACcESS 2004 -  All Rights Reserved                        *  /*******************************************************
5   *                                                                            *   *
6   * This software is the property of ACcESS. No part of this code              *   *           Copyright 2003-2007 by ACceSS MNRF
7   * may be copied in any form or by any means without the expressed written    *   *       Copyright 2007 by University of Queensland
8   * consent of ACcESS.  Copying, use or modification of this software          *   *
9   * by any unauthorised person is illegal unless that person has a software    *   *                http://esscc.uq.edu.au
10   * license agreement with ACcESS.                                             *   *        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"  #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.478  
changed lines
  Added in v.1561

  ViewVC Help
Powered by ViewVC 1.1.26