data wndchill(drop=Column Row);
   array WC{4,2} _temporary_
		(-22,-16,-28,-22,-32,-26,-35,-29);
   set ia.flights;
   Row=round(WSpeed,5)/5;
   Column=(round(Temp,5)/5)+3;  
   Chill=wc{Row,Column}; 
run;

proc print data=wndchill noobs;
title 'wndchill';
run;