allsel

*get,noe,elem,0,count
nonpe=4
*dim,nodes,array,noe,nonpe
*dim,adjec,array,noe,nonpe
elem=0
*do,i,1,noe
   *get,elem,elem,elem,nxth
   *do,j,1,nonpe
      *get,nodenum,elem,elem,node,j
      nodes(i,j)=nodenum
      *get,adjecnum,elem,elem,adj,j
      adjec(i,j)=adjecnum
   *enddo
*enddo

*get,non,node,0,count
*dim,ncoord,array,non,2
*dim,nn,array,non
node=0
*do,i,1,non
   *get,node,node,node,nxth
   nn(i)=node
   *get,x,node,node,loc,x
   *get,y,node,node,loc,y
   ncoord(i,1)=x
   ncoord(i,2)=y
*enddo

*cfopen,mesh,data

*VWRITE,nodes(1,1),nodes(1,2),nodes(1,3),nodes(1,4)
(4e20.10)
*VWRITE,
(' ')

*VWRITE,ncoord(1,1),ncoord(1,2)
(2e20.10)
*VWRITE,
('%')
*cfclos

finish