!aus dem Forum von crossover
!bearbeitet Schätzing, 10.0.2012

finish  $/clear
*abbr,crossover,/inp,crossover,txt

/prep7
et,1,plane55
mp,kxx,1,40
mp,c,1,500
mp,dens,1,7800
rect,,1,,0.5
esize,0.05
amesh,all
nsel,s,loc,x,0
d,all,temp,100
alls
nsel,s,loc,x,1
d,all,temp,200
alls
!----------------
/solu
solve
!--------------------
/post1
plns,temp

!prnsol,temp



esel,all,mat,,1
nsel,all
*get,nanz,node,,count
*get,nmin,node,,num,min
*set,narb,nmin
*dim,dtemp,array,nanz,2
*do,i,1,nanz 
*get,param,node,i,temp
dtemp(i,1)=narb 
dtemp(i,2)=param 
narb=ndnext(narb) 
*enddo

!/eof


*create,savenodetemp    !Makro generieren
*cfopen,nodetemp,dat
*vwrite,dtemp(1,1),dtemp(1,2)
(f10.4,';',f10.4)                !Formatierung
*cfclos 
*end  !*create

*use,savenodetemp    !Makro ausführen