/[escript]/trunk/paso/src/BiCGStab.c
ViewVC logotype

Diff of /trunk/paso/src/BiCGStab.c

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

trunk/paso/src/Solvers/BiCGStab.c revision 682 by robwdcock, Mon Mar 27 02:43:09 2006 UTC trunk/paso/src/BiCGStab.c revision 940 by gross, Mon Jan 29 00:09:08 2007 UTC
# Line 15  Line 15 
15     Crude modifications and translations for Paso by Matt Davies and Lutz Gross     Crude modifications and translations for Paso by Matt Davies and Lutz Gross
16  */  */
17    
18  #include "../Paso.h"  #include "Paso.h"
19  #include "../SystemMatrix.h"  #include "SystemMatrix.h"
20  #include "Solver.h"  #include "Solver.h"
21  #ifdef _OPENMP  #ifdef _OPENMP
22  #include <omp.h>  #include <omp.h>
# Line 117  err_t Paso_Solver_BiCGStab( Line 117  err_t Paso_Solver_BiCGStab(
117      maxit = *iter;      maxit = *iter;
118      tol = *resid;      tol = *resid;
119        
120  #pragma omp parallel firstprivate(maxit,tol,convergeFlag,maxIterFlag,breakFlag) \      #pragma omp parallel firstprivate(maxit,tol) \
121         private(rho,omega,num_iter,norm_of_residual,beta,alpha,rho1)         private(rho,omega,num_iter,norm_of_residual,beta,alpha,rho1, convergeFlag,maxIterFlag,breakFlag)
122      {      {
123        num_iter =0;        num_iter =0;
124          convergeFlag=FALSE;
125          maxIterFlag=FALSE;
126          breakFlag=FALSE;
127    
128        /* initialize arrays */        /* initialize arrays */
129        

Legend:
Removed from v.682  
changed lines
  Added in v.940

  ViewVC Help
Powered by ViewVC 1.1.26