[hamid1]

Hi,
does anybody know what is wrong with this udf code, i got tired..

DEFINE_EXECUTE_AT_END(calculation_PF_QF)
{

T=RP_Get_Real("flow-time");


face_t f;
Domain *domain;

real NV_VEC(A);
real PF=0;
real force=0;


INT ID=15;
Thread *thread=Lookup_Thread (domain,ID)



begin_f_loop(f,thread)
{

F_AREA (A,f,thread);
force+=F_P(f,thread)*NV_MAG(A);
PF= force/B;

}

end_f_loop(f,thread)



}



there are several parse error and ...
Error: Set_Thread_Variables: wta(real)
Error Object: ((constant . 1) (profile "" ""))

thanks for ur helps