/* C interface to user-supplied Fortran routine FARKMASSPSET; see
farkode.h for further details */
int FARKMassPSet(realtype t, void *user_data)
{
int ier = 0;
FARKUserData ARK_userdata;
ARK_userdata = (FARKUserData) user_data;
FARK_MASSPSET(&t, ARK_userdata->ipar, ARK_userdata->rpar, &ier);
return(ier);
}
/* C interface to user-supplied Fortran routine FARKMASSPSET; see
farkode.h for further details */
int FARKMassPSet(realtype t, void *user_data, N_Vector vtemp1,
N_Vector vtemp2, N_Vector vtemp3)
{
int ier = 0;
realtype *v1data, *v2data, *v3data;
FARKUserData ARK_userdata;
v1data = N_VGetArrayPointer(vtemp1);
v2data = N_VGetArrayPointer(vtemp2);
v3data = N_VGetArrayPointer(vtemp3);
ARK_userdata = (FARKUserData) user_data;
FARK_MASSPSET(&t, ARK_userdata->ipar, ARK_userdata->rpar,
v1data, v2data, v3data, &ier);
return(ier);
}
