       real rcol,rrow,rnodat,rgridsize,rxll,ryll
       real wstats(6)
       integer ncol,nrow,nodat,ngridsize,nxll,nyll
       integer uwas,xcoor,ycoor,rloop
       real, allocatable :: write2D(:,:),dom2D(:,:)

