1 
2       integer        iwindow,xpxl     ,wxy       ,wxi
3       common /wdata/ iwindow,xpxl(2,3),wxy(2,2,3),wxi(2,3)
4 
5