options ls=78 ps=600;
data fin;
infile 'ff95.dat';
input  @1 lat 6.1 @8 long 6.1 @16 ff95 8.2  @26 popli 10. @38 perc 8.4 @48 unid
 3. @53 name $char20.;

proc sort ; by unid;
proc means noprint; by unid;
var perc ff95 popli;
id name;
output out=sums sum=sperc sff95 spop; 
proc sort; by name;
data sums; set sums;
file 'out';
put @10 unid 3. @15 name $char20. @37 _freq_ 4. @43 sff95 8.1 @53 sperc 8.4 @64
spop 10.;

proc sort data=fin;
  by descending lat;
  proc means noprint;
  by descending lat;
var ff95;
output out=lats sum=sff95;
data lats; set lats; drop _type_;
proc print;
var lat sff95;

proc means noprint data=fin; output out=sum sum=ssff95 ssper sspop;
var ff95 perc popli; 
proc print;