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

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

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

revision 1512 by gross, Mon Feb 25 04:45:48 2008 UTC revision 1513 by gross, Tue Apr 15 08:47:57 2008 UTC
# Line 63  double Paso_FCTransportProblem_getSafeTi Line 63  double Paso_FCTransportProblem_getSafeTi
63                 for (i=0;i<n_rows;++i) {                 for (i=0;i<n_rows;++i) {
64                      rtmp1=fctp->main_diagonal_low_order_transport_matrix[i];                      rtmp1=fctp->main_diagonal_low_order_transport_matrix[i];
65                      rtmp2=fctp->lumped_mass_matrix[i];                      rtmp2=fctp->lumped_mass_matrix[i];
66                      if ( (rtmp1<0 && rtmp2>=0.) || (rtmp1>0 && rtmp2<=0.) ) {                      if ( (rtmp1<0 && rtmp2>0.) || (rtmp1>0 && rtmp2<0.) ) {
67                          dt_max_loc=MIN(dt_max_loc,-rtmp2/rtmp1);                          dt_max_loc=MIN(dt_max_loc,-rtmp2/rtmp1);
68                      }                      }
69                  }                  }

Legend:
Removed from v.1512  
changed lines
  Added in v.1513

  ViewVC Help
Powered by ViewVC 1.1.26