data grind;
 input cdiam @@;
 cards;
 .0033 -.0015 .0078
 ;
 run;
proc univariate data=grind;
 var cdiam;
ods select TestsForLocation;
run;