[secorreaz]

Hello good afternoon everyone

When I mount my UDF code there is no problem but when I press the Run Calculation option during the initialization it shows me this error and then it ejects me from Ansys

"999999: mpt_accept: error: accept failed: No error".
The fl process could not be started

Attached is my code

Thank you very much

PHP Code:

#include "udf.h"
#include "sg_mphase.h"
#include "mem.h"
#include "sg_mem.h"
#include "flow.h"
#include "unsteady.h"
#include "metric.h"
#include "math.h"
enum
{
ads,
q_ads,
d_ads
};
/**************************************************/
/* UDF el cual se realizara es el de              */
/* Dubinin Astakov para poder mostrar el fenomeno */
/* de adsorciأ³n                                   */
/**************************************************/
DEFINE_ADJUST(define_ads,domain)
{
#if !RP_HOST
Thread *t;
real E,A,P;
cell_t c;
real tem;

thread_loop_c(t,domain)
{
begin_c_loop(c,t)
{
tem = C_T(c,t);

P=C_P(c,t)+RP_Get_Real("operating-pressure");

E=3080.0+18.9*tem;

A=8.314*tem*log(1.47e9/P);

C_UDSI(c,t,0) = 71.6*(exp(-((A*A) / (E*E))));

}
end_c_loop(c,t)
}
#endif
}
/******************************************************/
/* El siguiente codigo permitira implementar el LDF          
/*   este presentara 3 cأ³digos distinto el cual albergara
/*   la adsorcion dinamica para cada iteraciأ³n calculada
/*  y almacenada por la ejecuciأ³n de la UDF que esta definida  */
/*  usando DEFINE_ADJUST(q_ads,domain)                         */
/*                                                             */
/***************************************************************/
DEFINE_ADJUST(define_q_ads,domain)
{
#if !RP_HOST
Thread *t;
cell_t c;
real dt;

thread_loop_c(t,domain)
{
begin_c_loop_int(c,t)
{
dt=RP_Get_Real("physical-time-step");
C_UDSI(c,t,0)=C_UDSI_M1(c,t,0)+0.15*dt*(C_UDSI_M1(c,t,1)-C_UDSI_M1(c,t,0));
}
end_c_loop_int(c,t)
}
#endif
}

/*****************************************************************/
/*                                                               */
/*   El siguiente código El término de la fuente de masa de cada */
/*   iteración se calcula y almacena ejecutando la UDF que se    */
/*   define con  DEFINE_ADJUST(d_ads, domain)                    */
/*****************************************************************/ 
DEFINE_ADJUST(define_d_ads, domain)
{
#if !RP_HOST
Thread *t;
cell_t c;

thread_loop_c(t, domain)
{
begin_c_loop_int(c,t)
{
C_UDSI(c, t, 0) = -0.532224*0.15*(C_UDSI(c, t, 1) - C_UDSI(c, t, 0));
}
end_c_loop_int(c,t)
}
#endif
}

DEFINE_SOURCE(m_src,c,t,dS,eqn)
{
dS[eqn]=0.0;

return C_UDSI_M1(c, t, 0);
} 


[AlexanderZ]

what is C_UDSI_M1 macro, how it works?

also you don't need #if !RP_HOST, #endif directives in your code