/* Returns CR_OK upon succesful completion, an error code otherwise.  */
enum CRStatus cr_num_set(CRNum *a_this, gdouble a_val, enum CRNumType a_type)
/* Returns CR_OK upon succesful completion, an error code otherwise.  */
enum CRStatus cr_num_set(CRNum *a_this, gdouble a_val, enum CRNumType a_type)
{
        g_return_val_if_fail (a_this, CR_BAD_PARAM_ERROR);
        a_this->val = a_val;
        a_this->type = a_type;
        return CR_OK;
}