text: ###########
  #       pgms/mwips.awk
  #
  #	Measures MWIPS for Whetstone (self-timing, ignore "time" output)
  #
  #	Created 1997.08.25	DCN
  #          
  BEGIN { rsum = 0.000; r2sum = 0.000; r_product = 0.0000;
  	  iter = 0; Test=""; SubTest=""; secs = 10.00; secs_sum = 0.00;
  	}
  /TEST\|/ { split($0, junk,"|");
  	Test=junk[2]; 
  	}
  /FLAVOR\|/ { split($0, junk,"|");
  	flavor=junk[2] ; 
  	}
  /^MWIPS/ {
  	loopspersec=$2;
  	secs=$3;
  	secs_sum += secs;
  	loops=secs*loopstmp;
  	iter ++;
  	rsum += loopspersec;
  	r2sum += loopspersec*loopspersec;
  	r_product += log(loopspersec);
          }
  END {
  	if (iter > 0) {  
  # TestName|Sample(seconds)|units|ArithMean|GeoMean|DataPoints
  	    printf("%s|%.1f|MWIPS|%.1f|%.1f|%d\n",Test,secs_sum/iter,rsum/iter,exp(r_product/iter),iter)
  	    }
  	else { 
  	    printf("%s|  no measured results|\n",Test); 
  	    }
      }
  