/[escript]/trunk-mpi-branch/paso/src/GMRES.c
ViewVC logotype

Diff of /trunk-mpi-branch/paso/src/GMRES.c

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

revision 1086 by gross, Tue Mar 6 04:41:55 2007 UTC revision 1087 by gross, Thu Apr 12 10:01:47 2007 UTC
# Line 69  err_t Paso_Solver_GMRES( Line 69  err_t Paso_Solver_GMRES(
69      double * x,      double * x,
70      dim_t *iter,      dim_t *iter,
71      double * tolerance,dim_t Length_of_recursion,dim_t restart,      double * tolerance,dim_t Length_of_recursion,dim_t restart,
72        double* buffer0, double* buffer1,
73      Paso_Performance* pp) {      Paso_Performance* pp) {
74    
75    /* Local variables */    /* Local variables */
# Line 155  err_t Paso_Solver_GMRES( Line 156  err_t Paso_Solver_GMRES(
156           *** apply A to P to get AP           *** apply A to P to get AP
157           ***/           ***/
158           #pragma omp barrier           #pragma omp barrier
159       Paso_SystemMatrix_MatrixVector_CSR_OFFSET0(ONE, A, &P_PRES[0][0],ZERO, &AP[0]);       Paso_SystemMatrix_MatrixVector_CSR_OFFSET0(ONE, A, &P_PRES[0][0],ZERO, &AP[0],buffer0,buffer1);
160           /***                                                                           /***                                                                
161           ***** calculation of the norm of R and the scalar products of                 ***** calculation of the norm of R and the scalar products of      
162           ***   the residuals and A*P:                                                   ***   the residuals and A*P:                                        

Legend:
Removed from v.1086  
changed lines
  Added in v.1087

  ViewVC Help
Powered by ViewVC 1.1.26