529 |
abave = 0.5*(fabs(a)+fabs(b)); |
abave = 0.5*(fabs(a)+fabs(b)); |
530 |
if (abave > 0.0) { |
if (abave > 0.0) { |
531 |
relerr=fabs(a-b)/abave; |
relerr=fabs(a-b)/abave; |
532 |
if (relerr > 0.0) { linnum = (int)lrint(log10(relerr)); } |
if (relerr > 0.0) { linnum = (int)rint(log10(relerr)); } |
533 |
else { linnum = -16 ; } |
else { linnum = -16 ; } |
534 |
best = (best > linnum) ? best : linnum; |
best = (best > linnum) ? best : linnum; |
535 |
} |
} |
995 |
ldir=build |
ldir=build |
996 |
( |
( |
997 |
cd "$dir/$ldir" > /dev/null 2>&1 |
cd "$dir/$ldir" > /dev/null 2>&1 |
998 |
ls -1 Makefile *.[fFhco]* mitgcmuv 2>/dev/null \ |
ls -1 Makefile *.[fFhco] mitgcmuv 2>/dev/null \ |
999 |
| sed -e 's|^CVS$||g' | sed -e 's|^output.txt$||g' |
| sed -e 's|^CVS$||g' | sed -e 's|^output.txt$||g' |
1000 |
) > tr_exrun_links |
) > tr_exrun_links |
1001 |
( |
( |
1072 |
rm -f tmp_cmpnum.c tmp_cmpnum |
rm -f tmp_cmpnum.c tmp_cmpnum |
1073 |
|
|
1074 |
if test "x$CLEANUP" != xt ; then |
if test "x$CLEANUP" != xt ; then |
1075 |
cat $SUMMARY |
cat $SUMMARY | sed 's/ -- -- -- --//g' |
1076 |
if test -e tr_out.txt ; then |
if test -e tr_out.txt ; then |
1077 |
mv tr_out.txt tr_out.txt.old |
mv tr_out.txt tr_out.txt.old |
1078 |
fi |
fi |
1079 |
cat $SUMMARY > tr_out.txt |
cat $SUMMARY | sed 's/ -- -- -- --//g' > tr_out.txt |
1080 |
fi |
fi |
1081 |
|
|
1082 |
if test "x$DELDIR" = xt ; then |
if test "x$DELDIR" = xt ; then |