求助 用UDF加载一个摩擦生热的热流密度，提示有问题

needload

想在模型加载一个摩擦生热的热流密度，摩擦力是随时间变化的。

F=20000+20000*sin(2*pi*t)

热流密度q=f*0.4

我写的：

#include "udf.h"
#define pi 3.141592
#define A1 0.4

#define A2 20000.0
DEFINE_SOURCE(energy_source1,c,t,dS,eqn)
{
real h,source;
h=RP_Get_Real("flow-time");
source=A1*A2+A1*A2*sin(2*pi*h);
return source;
}

编译后出现：energy_source1: wrong return type: void udf function expected是什么原因

needload

求指导，自己顶