/[escript]/trunk/paso/src/GMRES2.cpp
ViewVC logotype

Diff of /trunk/paso/src/GMRES2.cpp

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

revision 1798 by gross, Wed Sep 17 06:21:12 2008 UTC revision 1804 by gross, Wed Sep 24 07:52:19 2008 UTC
# Line 80  err_t Paso_Solver_GMRES2( Line 80  err_t Paso_Solver_GMRES2(
80     *  allocate memory:     *  allocate memory:
81     */     */
82    h=TMPMEMALLOC(l*l,double);    h=TMPMEMALLOC(l*l,double);
83    v=TMPMEMALLOC(iter_max,double*);    v=TMPMEMALLOC(l,double*);
84    c=TMPMEMALLOC(l,double);    c=TMPMEMALLOC(l,double);
85    s=TMPMEMALLOC(l,double);    s=TMPMEMALLOC(l,double);
86    g=TMPMEMALLOC(l,double);    g=TMPMEMALLOC(l,double);
# Line 116  err_t Paso_Solver_GMRES2( Line 116  err_t Paso_Solver_GMRES2(
116                    /*                    /*
117                    *      call directional derivative function                    *      call directional derivative function
118                    */                    */
119                    Paso_FunctionDerivative(v[k],v[k-1],F,f0,x0,work,TRUE);                    Paso_FunctionDerivative(v[k],v[k-1],F,f0,x0,work,TRUE,pp);
120                    normv=Paso_l2(n,v[k],F->mpi_info);                    normv=Paso_l2(n,v[k],F->mpi_info);
121                    /*                    /*
122                     * Modified Gram-Schmidt                     * Modified Gram-Schmidt

Legend:
Removed from v.1798  
changed lines
  Added in v.1804

  ViewVC Help
Powered by ViewVC 1.1.26