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

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

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

revision 1973 by ksteube, Thu Sep 25 23:11:13 2008 UTC revision 1974 by jfenwick, Thu Nov 6 02:40:10 2008 UTC
# Line 59  err_t Paso_Function_LinearSystem_call(Pa Line 59  err_t Paso_Function_LinearSystem_call(Pa
59  {  {
60      Paso_SystemMatrix* A=(Paso_SystemMatrix*)(F->more);      Paso_SystemMatrix* A=(Paso_SystemMatrix*)(F->more);
61      Paso_Copy(F->n,F->tmp,F->b); /* tmp=b */      Paso_Copy(F->n,F->tmp,F->b); /* tmp=b */
62      Paso_SystemMatrix_MatrixVector_CSR_OFFSET0(ONE, A, arg,-ONE, F->tmp); /* tmp=(A*arg-tmp) */      Paso_SystemMatrix_MatrixVector_CSR_OFFSET0(PASO_ONE, A, arg,-PASO_ONE, F->tmp); /* tmp=(A*arg-tmp) */
63      Paso_Solver_solvePreconditioner(A,value,F->tmp);  /* value=P*tmp */      Paso_Solver_solvePreconditioner(A,value,F->tmp);  /* value=P*tmp */
64      return NO_ERROR;      return NO_ERROR;
65  }  }

Legend:
Removed from v.1973  
changed lines
  Added in v.1974

  ViewVC Help
Powered by ViewVC 1.1.26