!aus dem Forum von e.jay

finish   $/clear
*abbr,ejay,/input,ejay,inp

abm=1


/prep7
et,1,70
mp,kxx,1,20.0
block,0,abm,0,abm,0,abm
esize,abm/4
vmesh,all
nsel,s,loc,x,0
d,all,temp,100
nsel,s,loc,x,abm
nsel,r,loc,y,0,abm/2
sf,all,conv,20,20

/solu
allsel
solve

/post1
plns,temp

!nsel,s,loc,y,0
!esln
plns,temp
plns,tf,sum


/eof


*get,n_anz,node,,count
*dim,ausgabe,array,n_anz,6
*cfopen,AUSGABE,dat
*do,j,1,n_anz

  *get,koordx,node,j,loc,x
  *get,koordy,node,j,loc,y            
  *get,koordz,node,j,loc,z
  temper=temp(j)
  *get,flu,node,j,tf,sum
  

ausgabe(j,1)=j
ausgabe(j,2)=koordx            
ausgabe(j,3)=koordy
ausgabe(j,4)=koordz
ausgabe(j,5)=temper
ausgabe(j,6)=flu

*cfwrite,AUSGABE,ausgabe(j,1),ausgabe(j,2),ausgabe(j,3),ausgabe(j,4),ausgabe(j,5),ausgabe(j,6)

*enddo

*cfclose