240 |
# 1rst : main variable used to decide if it pass or FAIL |
# 1rst : main variable used to decide if it pass or FAIL |
241 |
# others : number of matching digits to be printed in summary.txt |
# others : number of matching digits to be printed in summary.txt |
242 |
listChk=$DEF_CHECK_LIST |
listChk=$DEF_CHECK_LIST |
|
nbDef=`echo $listChk | awk '{print NF-1+3*gsub("+","E")}'` |
|
243 |
# load experiment-specific list from file "tr_checklist" (if it exist) |
# load experiment-specific list from file "tr_checklist" (if it exist) |
244 |
if test -r $1/$2/tr_checklist ; then listChk=`cat $1/$2/tr_checklist` ; fi |
if test -r $1/$2/tr_checklist ; then listChk=`cat $1/$2/tr_checklist` ; fi |
245 |
sVar=`echo $listChk | awk '{print $1}'` |
sVar=`echo $listChk | awk '{print $1}'` |
246 |
# remove 1rst var and expand the list: + => min max mean s.d |
# remove 1rst var and expand the list: + => min max mean s.d |
247 |
listVar=`echo $listChk | awk '{ for(i=2;i<=NF;i++){if (sub("+","",$i)) \ |
listVar=`echo $listChk | sed 's/ [a-zA-Z0-9]*+/&mn &mx &av &sd/g' \ |
248 |
{printf " %s %s %s %s",$i"mn",$i"mx",$i"av",$i"sd"} else {printf " %s",$i} }}'` |
| sed 's/+//g' | sed "s/^$sVar//"` |
249 |
if [ $debug -gt 0 ]; then echo "testoutput_run: listVar(I)='$listVar'" 1>&2 ; fi |
if [ $debug -gt 0 ]; then echo "testoutput_run: listVar(I)='$listVar'" 1>&2 ; fi |
250 |
for ii in 1 2 3 4 5 6 7 8 9 ; do |
for ii in 1 2 3 4 5 6 7 8 9 ; do |
251 |
tst=`eval 'echo "$HAVE_PTR0'$ii'"'` |
tst=`eval 'echo "$HAVE_PTR0'$ii'"'` |
303 |
done |
done |
304 |
|
|
305 |
nbVar=`echo $listVar | awk '{print NF}'` |
nbVar=`echo $listVar | awk '{print NF}'` |
306 |
if [ $nbVar -lt $nbDef ] ; then |
if [ $nbVar -lt $LEN_CHECK_LIST ] ; then |
307 |
#-- fill line (up to standard length) with dot: |
#-- fill line (up to standard length) with dot: |
308 |
adNul=`expr $nbDef - $nbVar | awk '{for(i=1;i<=$1;i++){print "."}}'` |
adNul=`expr $LEN_CHECK_LIST - $nbVar | awk '{for(i=1;i<=$1;i++){print "."}}'` |
309 |
echo $allargs $adNul |
echo $allargs $adNul |
310 |
else |
else |
311 |
echo $allargs |
echo $allargs |
636 |
double a,b,abave,relerr; |
double a,b,abave,relerr; |
637 |
best = -22; |
best = -22; |
638 |
lncnt = 0; |
lncnt = 0; |
639 |
while( 1 & (lncnt+=1) < 999 ) { |
while( 1 & ( (lncnt+=1) < 999 ) ) { |
640 |
scanf("%d", &linnum); |
scanf("%d", &linnum); |
641 |
if (linnum == -1) break; |
if (linnum == -1) break; |
642 |
scanf("%lf", &a); scanf("%lf", &b); |
scanf("%lf", &a); scanf("%lf", &b); |
683 |
listPrt=$@ |
listPrt=$@ |
684 |
listRes=`echo $listPrt | sed 's/>//' | sed 's/<//'` |
listRes=`echo $listPrt | sed 's/>//' | sed 's/<//'` |
685 |
xx=`echo $listPrt | sed 's/.*>//' | sed 's/<.*//' | awk '{print $1}'` |
xx=`echo $listPrt | sed 's/.*>//' | sed 's/<.*//' | awk '{print $1}'` |
686 |
|
printf '%3s' $listPrt |
687 |
# printf '%3s' $listPrt | sed 's/ 99/ --/g' | sed 's/ > />/' | sed 's/ < /</' |
# printf '%3s' $listPrt | sed 's/ 99/ --/g' | sed 's/ > />/' | sed 's/ < /</' |
688 |
printf '%3s' $listPrt | sed 's/ 99/ --/g' | sed 's/ > / /' | sed 's/ < / /' |
# printf '%3s' $listPrt | sed 's/ 99/ --/g' | sed 's/ > / /' | sed 's/ < / /' |
689 |
|
|
690 |
if [ $xx = '..' ]; then |
if [ $xx = '..' ]; then |
691 |
printf ' N/O ' |
printf ' N/O ' |
968 |
if test "x$ADM" != xt ; then |
if test "x$ADM" != xt ; then |
969 |
DEF_CHECK_LIST='PS PS T+ S+ U+ V+ pt1+ pt2+ pt3+ pt4+ pt5+' |
DEF_CHECK_LIST='PS PS T+ S+ U+ V+ pt1+ pt2+ pt3+ pt4+ pt5+' |
970 |
EMPTY_RESULTS='.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..' |
EMPTY_RESULTS='.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..' |
971 |
nbDef=`echo $DEF_CHECK_LIST | awk '{print NF-1+3*gsub("+","E")}'` |
LEN_CHECK_LIST=`echo $DEF_CHECK_LIST | sed 's/ [a-zA-Z0-9]*+/&mn &mx &av &sd/g' | awk '{print NF-1}'` |
972 |
ii=`echo $EMPTY_RESULTS | awk '{print NF}'` |
ii=`echo $EMPTY_RESULTS | awk '{print NF}'` |
973 |
EMPTY_RESULTS=$EMPTY_RESULTS`expr $nbDef - $ii | awk 'BEGIN{FS=":"}{for(i=1;i<=$1;i++){printf " ."}}'` |
EMPTY_RESULTS=$EMPTY_RESULTS`expr $LEN_CHECK_LIST - $ii | awk 'BEGIN{FS=":"}{for(i=1;i<=$1;i++){printf " ."}}'` |
974 |
fi |
fi |
975 |
|
|
976 |
# create the FORTRAN comparison code |
# create the FORTRAN comparison code |
1196 |
if test "x$ADM" = x ; then |
if test "x$ADM" = x ; then |
1197 |
fres=`formatresults $dir ${genmake:-N} ${makedepend:-N} ${make:-N} ${run:-N} $results` |
fres=`formatresults $dir ${genmake:-N} ${makedepend:-N} ${make:-N} ${run:-N} $results` |
1198 |
echo |
echo |
1199 |
echo "$fres" >> $SUMMARY |
# echo "$fres" | sed 's/ 99/ --/g' | sed 's/ > />/' | sed 's/ < /</' >> $SUMMARY |
1200 |
|
echo "$fres" | sed 's/ 99/ --/g' | sed 's/ > / /' | sed 's/ < / /' >> $SUMMARY |
1201 |
touch $CDIR"/summary.txt" |
touch $CDIR"/summary.txt" |
1202 |
echo "fresults='$fres'" >> $CDIR"/summary.txt" |
echo "fresults='$fres'" | sed 's/ 99/ --/g' >> $CDIR"/summary.txt" |
1203 |
echo "MACH='$MACH'" >> $CDIR"/summary.txt" |
echo "MACH='$MACH'" >> $CDIR"/summary.txt" |
1204 |
echo "UNAMEA='$UNAMEA'" >> $CDIR"/summary.txt" |
echo "UNAMEA='$UNAMEA'" >> $CDIR"/summary.txt" |
1205 |
echo "DATE='$DATE'" >> $CDIR"/summary.txt" |
echo "DATE='$DATE'" >> $CDIR"/summary.txt" |
1221 |
fres=`formatresults $dir ${genmake:-N} ${makedepend:-N} ${make:-N} ${run:-N} $results` |
fres=`formatresults $dir ${genmake:-N} ${makedepend:-N} ${make:-N} ${run:-N} $results` |
1222 |
fres="$fres.$ex" |
fres="$fres.$ex" |
1223 |
echo |
echo |
1224 |
echo "$fres" >> $SUMMARY |
# echo "$fres" | sed 's/ 99/ --/g' | sed 's/ > />/' | sed 's/ < /</' >> $SUMMARY |
1225 |
|
echo "$fres" | sed 's/ 99/ --/g' | sed 's/ > / /' | sed 's/ < / /' >> $SUMMARY |
1226 |
touch $CDIR"/summary.txt" |
touch $CDIR"/summary.txt" |
1227 |
echo "fresults='$fres'" >> $CDIR"/summary.txt" |
echo "fresults='$fres'" | sed 's/ 99/ --/g' >> $CDIR"/summary.txt" |
1228 |
echo "MACH='$MACH'" >> $CDIR"/summary.txt" |
echo "MACH='$MACH'" >> $CDIR"/summary.txt" |
1229 |
echo "UNAMEA='$UNAMEA'" >> $CDIR"/summary.txt" |
echo "UNAMEA='$UNAMEA'" >> $CDIR"/summary.txt" |
1230 |
echo "DATE='$DATE'" >> $CDIR"/summary.txt" |
echo "DATE='$DATE'" >> $CDIR"/summary.txt" |