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

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

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

revision 3489 by jfenwick, Mon Oct 11 01:48:14 2010 UTC revision 3490 by caltinay, Wed Mar 30 02:24:33 2011 UTC
# Line 29  err_t Paso_FunctionDerivative(double* J0 Line 29  err_t Paso_FunctionDerivative(double* J0
29     dim_t i;     dim_t i;
30     register double aw;     register double aw;
31     const double epsnew=sqrt(EPSILON);     const double epsnew=sqrt(EPSILON);
32     double norm_x0, tt, ttt, s=epsnew, local_s, norm_w=0.;     double /*norm_x0,*/ ttt, s=epsnew, local_s, norm_w=0.;
33        
34     norm_x0=Paso_lsup(n,x0,F->mpi_info);     /*norm_x0=Paso_lsup(n,x0,F->mpi_info);*/
35     norm_w=Paso_lsup(n,w,F->mpi_info);     norm_w=Paso_lsup(n,w,F->mpi_info);
    tt=EPSILON*norm_x0;  
36     ttt=sqrt(EPSILON)*norm_w;     ttt=sqrt(EPSILON)*norm_w;
37     #pragma omp parallel private(local_s)     #pragma omp parallel private(local_s)
38     {     {

Legend:
Removed from v.3489  
changed lines
  Added in v.3490

  ViewVC Help
Powered by ViewVC 1.1.26