/[escript]/trunk/finley/src/Assemble_PDE.c
ViewVC logotype

Diff of /trunk/finley/src/Assemble_PDE.c

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

revision 1072 by gross, Thu Mar 29 06:44:30 2007 UTC revision 1312 by ksteube, Mon Sep 24 06:18:44 2007 UTC
# Line 1  Line 1 
 /*  
  ************************************************************  
  *          Copyright 2006 by ACcESS MNRF                   *  
  *                                                          *  
  *              http://www.access.edu.au                    *  
  *       Primary Business: Queensland, Australia            *  
  *  Licensed under the Open Software License version 3.0    *  
  *     http://www.opensource.org/licenses/osl-3.0.php       *  
  *                                                          *  
  ************************************************************  
 */  
1    
2    /* $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  /**************************************************************/  /**************************************************************/
17    
# Line 39  Line 41 
41    
42  /**************************************************************/  /**************************************************************/
43    
 /*  Author: gross@access.edu.au */  
 /*  Version: $Id$ */  
   
 /**************************************************************/  
   
44  #include "Assemble.h"  #include "Assemble.h"
45  #include "Util.h"  #include "Util.h"
46    #include "escript/blocktimer.h"
47  #ifdef _OPENMP  #ifdef _OPENMP
48  #include <omp.h>  #include <omp.h>
49  #endif  #endif
# Line 62  void Finley_Assemble_PDE(Finley_NodeFile Line 60  void Finley_Assemble_PDE(Finley_NodeFile
60    double time0;    double time0;
61    dim_t dimensions[ESCRIPT_MAX_DATA_RANK];    dim_t dimensions[ESCRIPT_MAX_DATA_RANK];
62    type_t funcspace;    type_t funcspace;
63      double blocktimer_start = blocktimer_time();
64    
65    Finley_resetError();    Finley_resetError();
66    
67      {
68      int iam, numCPUs;
69    #ifdef Paso_MPI
70      iam = elements->elementDistribution->MPIInfo->rank;
71      numCPUs = elements->elementDistribution->MPIInfo->size;
72    #endif
73      }
74    
75    if (nodes==NULL || elements==NULL) return;    if (nodes==NULL || elements==NULL) return;
76    if (S==NULL && isEmpty(F)) return;    if (S==NULL && isEmpty(F)) return;
77    
# Line 353  void Finley_Assemble_PDE(Finley_NodeFile Line 360  void Finley_Assemble_PDE(Finley_NodeFile
360       printf("timing: assemblage PDE: %.4e sec\n",Finley_timer()-time0);       printf("timing: assemblage PDE: %.4e sec\n",Finley_timer()-time0);
361       #endif       #endif
362    }    }
363      blocktimer_increment("Finley_Assemble_PDE()", blocktimer_start);
364  }  }
365  /*  /*
366   * $Log$   * $Log$

Legend:
Removed from v.1072  
changed lines
  Added in v.1312

  ViewVC Help
Powered by ViewVC 1.1.26