options linesize = 132 nocenter;

/*******************************************************/

title 'Read 1961-81 panel (v5) 0-1 neighbor matrix';

/*******************************************************/


/* two alternate locations of neighbor matrices: */
filename NDATA  pipe 'gunzip -c /export/software/cwmills2/districts/neigh/d013815.data.gz' lrecl=371;
filename NDATA  '/var/spool/ftp/pub/india/neighp.dat' lrecl=371;

data temp;
    infile NDATA;
	length NAME $ 20;
	length D1-D339  4;
    input
       ( DISTID VARID YEAR VERSION NAME NNEIGH D1-D339 )
       ( $4.    $3.   $2.  $1.     $20. 2.     339*1.) ;

proc contents;

proc print;
	var DISTID VARID YEAR VERSION NAME NNEIGH;

proc means n sum mean min max;

proc freq;
	tables VARID YEAR VERSION NNEIGH;


run;