lsel,s,line,,10,12,1,1
*get,hullids,node,,count
*get,mynset,active,,set,nset

*dim,tempar,array,mynset,hullids+1
*dim,locar,array,hullids,2

*get,actnid,node,,num,min
*do,ii,1,hullids,1
  nsol,2,actnid,temp,,theta
  xvar,1
  vget,tempar(1,1),1
  vget,tempar(1,ii+1),2
  oldid=actnid
  *get,actnid,node,oldid,nxth
*enddo

*get,actnid,node,,num,min
*do,ii,1,hullids,1
  locar(ii,1)=ny(actnid)
  locar(ii,2)=nx(actnid)
  oldid=actnid
  *get,actnid,node,oldid,nxth
*enddo

ztitle1='ZONE '
ztitle2='s"'

*CFOPEN,hyp_kontur_t,dat
*vwrite,'VARIABLES="time" "x" "y" "theta"'
%C
*do,ii,1,mynset,1
  mytime=tempar(ii,1)
  *vwrite,ztitle1,'T="t=',mytime,ztitle2
  (A5,A5,E10.5,A2)
  *do,jj,1,hullids,1
    temp=tempar(ii,jj+1)
    xloc=locar(jj,1)
    yloc=locar(jj,2)
    *VWRITE,mytime,xloc,yloc,temp
    (E10.5,2X,E20.15,2X,E20.15,2X,E20.15)
  *enddo
*enddo
*CFCLOSE,hyp_kontur_t,dat

ztitle1='ZONE '
ztitle2='mm"'

*CFOPEN,hyp_kontur_x,dat
*vwrite,'VARIABLES="time" "x" "y" "theta"'
%C
*do,ii,1,hullids,1
  xloc=locar(ii,1)
  yloc=locar(ii,2)
  *vwrite,ztitle1,'T="x=',xloc,ztitle2
  (A5,A5,E10.5,A3)
  *do,jj,1,mynset,1
    mytime=tempar(jj,1)      
    temp=tempar(jj,ii+1)
    *VWRITE,mytime,xloc,yloc,temp
   (E10.5,2X,E20.15,2X,E20.15,2X,E20.15)
  *enddo
*enddo
*CFCLOSE,hyp_kontur_x,dat