void FIDA_GETESTLOCALERR(realtype *ele, int *ier) { /* Attach user data to vector */ N_VSetArrayPointer(ele, F2C_IDA_vec); *ier = 0; *ier = IDAGetEstLocalErrors(IDA_idamem, F2C_IDA_vec); /* Reset data pointers */ N_VSetArrayPointer(NULL, F2C_IDA_vec); return; }
void FIDA_GETESTLOCALERR(realtype *ele, int *ier) { /* Store existing F2C_IDA_vec data pointer */ realtype *f2c_data = N_VGetArrayPointer(F2C_IDA_vec); /* Attach user data to vector */ N_VSetArrayPointer(ele, F2C_IDA_vec); *ier = 0; *ier = IDAGetEstLocalErrors(IDA_idamem, F2C_IDA_vec); /* Reset data pointers */ N_VSetArrayPointer(f2c_data, F2C_IDA_vec); return; }