static int resweb(realtype tt, N_Vector cc, N_Vector cp,
N_Vector res, void *user_data)
{
int flag;
UserData webdata;
webdata = (UserData)user_data;
/* Call rescomm to do inter-processor communication. */
flag = rescomm(cc, cp, webdata);
/* Call reslocal to calculate the local portion of residual vector. */
flag = reslocal(tt, cc, cp, res, webdata);
return(0);
}
static int heatres(realtype tres, N_Vector uu, N_Vector up,
N_Vector res, void *user_data)
{
int retval;
UserData data;
long int Nlocal;
data = (UserData) user_data;
Nlocal = data->n_local;
/* Call rescomm to do inter-processor communication. */
retval = rescomm(Nlocal, tres, uu, up, data);
/* Call reslocal to calculate res. */
retval = reslocal(Nlocal, tres, uu, up, res, data);
return(0);
}
static int resweb(realtype tt,
N_Vector cc, N_Vector cp, N_Vector rr,
void *user_data)
{
int retval;
UserData webdata;
long int Nlocal;
webdata = (UserData) user_data;
Nlocal = webdata->n_local;
/* Call rescomm to do inter-processor communication. */
retval = rescomm(Nlocal, tt, cc, cp, user_data);
/* Call reslocal to calculate the local portion of residual vector. */
retval = reslocal(Nlocal, tt, cc, cp, rr, user_data);
return(0);
}
