/[MITgcm]/MITgcm/verification/testreport
ViewVC logotype

Diff of /MITgcm/verification/testreport

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

revision 1.50 by edhill, Wed Nov 24 17:06:07 2004 UTC revision 1.51 by mlosch, Mon Nov 29 21:38:08 2004 UTC
# Line 527  int main( int argc, char** argv )  { Line 527  int main( int argc, char** argv )  {
527      if (linnum == -1)  break;      if (linnum == -1)  break;
528      scanf("%lf", &a);  scanf("%lf", &b);      scanf("%lf", &a);  scanf("%lf", &b);
529      diff = 0.5*(fabs(a)+fabs(b));      diff = 0.5*(fabs(a)+fabs(b));
530      if (diff > 1.e-12) {      if (diff > 0.0) {
531        diff=fabs(a-b)/diff;        diff=fabs(a-b)/diff;
532        if (diff > 0.0) {        if (diff > 1.e-12) {
533          linnum = (int)log10(diff);          linnum = (int)log10(diff);
534          best = (best > linnum) ? best : linnum;          best = (best > linnum) ? best : linnum;
535        }        }

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

  ViewVC Help
Powered by ViewVC 1.1.22