Среднее значение величины на поверхности

Добрый день!

Пару дней назад я писал c просьбой помочь в нахождении среднего значения плотности теплового потока на поверхности. Решил воспользоваться apdl командой и вот что у меня получилось:

! Temp_Here - интересующая нас поверхность

/post1

Set,LAST

cmsel,s,Heat_Here

*stat
*get,n_nodes,node,,count
*dim,node_arnode,array,n_nodes
*dim,node_h_a,array,n_nodes

node_next=0

*do,ii,1,n_nodes
    node_next=NDNEXT(node_next)
    node_arnode(ii)=ARNODE(node_next)
    node_h_a(ii)=ARNODE(node_next)*TF(node_next)
*enddo

*vscfun,sum_node_h_a,SUM,node_h_a(1)
*vscfun,sum_area,SUM,node_arnode(1)

my_heat_avg=sum_node_h_a/sum_area

allsel

К сожалению, после расчета значение функции my_heat_avg=0. Однако при замене TF(node_next) на TEMP(node_next), т.е. поиск среднего значения температуры на поверхности, результаты отличны от 0 и похоже на правду.

Подскажите, пожалуйста, в чем проблема.