ext/cvode/source/cvdense.c
void CVDense(void *cvode_mem, CVDenseJacFn djac, void *jac_data)
{
  CVodeMem cv_mem;
  CVDenseMem cvdense_mem;

  /* Return immediately if cvode_mem is NULL */
  cv_mem = (CVodeMem) cvode_mem;
  if (cv_mem == NULL) return;  /* CVode reports this error */

  /* Set four main function fields in cv_mem */
  linit  = CVDenseInit;
  lsetup = CVDenseSetup;
  lsolve = CVDenseSolve;
  lfree  = CVDenseFree;

  /* Get memory for CVDenseMemRec */
  lmem = cvdense_mem = (CVDenseMem) malloc(sizeof(CVDenseMemRec));
  if (cvdense_mem == NULL) return;  /* CVDenseInit reports this error */

  /* Set Jacobian routine field to user's djac or CVDenseDQJac */
  if (djac == NULL) {
    jac = CVDenseDQJac;
  } else {
    jac = djac;
  }
  J_data = jac_data;
}
/*************** CVDense *********************************************

 This routine initializes the memory record and sets various function
 fields specific to the dense linear solver module. CVDense sets the
 cv_linit, cv_lsetup, cv_lsolve, and cv_lfree fields in (*cvode_mem)
 to be CVDenseInit, CVDenseSetup, CVDenseSolve, and CVDenseFree,
 respectively. It allocates memory for a structure of type
 CVDenseMemRec and sets the cv_lmem field in (*cvode_mem) to the
 address of this structure. Finally, it sets d_J_data field in the            
 CVDenseMemRec structure to be the input parameter jac_data and the
 d_jac field to be:                                         
                                                                
 (1) the input parameter djac if djac != NULL or                
                                                               
 (2) CVDenseDQJac if djac == NULL.                             

**********************************************************************/
CVDense
This routine initializes the memory record and sets various function
fields specific to the dense linear solver module.

(1) the input parameter djac if djac != NULL or

(2) CVDenseDQJac if djac == NULL.
CVDense This routine initializes the memory record and sets various function fields specific to the dense linear solver module . ( 1 ) the input parameter djac if djac ! = NULL or ( 2 ) CVDenseDQJac if djac == NULL .
void CVDense(void *cvode_mem, CVDenseJacFn djac, void *jac_data)
{
  CVodeMem cv_mem;
  CVDenseMem cvdense_mem;
  cv_mem = (CVodeMem) cvode_mem;
  if (cv_mem == NULL) return;  
  linit  = CVDenseInit;
  lsetup = CVDenseSetup;
  lsolve = CVDenseSolve;
  lfree  = CVDenseFree;
  lmem = cvdense_mem = (CVDenseMem) malloc(sizeof(CVDenseMemRec));
  if (cvdense_mem == NULL) return;  
  if (djac == NULL) {
    jac = CVDenseDQJac;
  } else {
    jac = djac;
  }
  J_data = jac_data;
}
void CVDense ( void * cvode_mem , CVDenseJacFn djac , void * jac_data ) { CVodeMem cv_mem ; CVDenseMem cvdense_mem ; cv_mem = ( CVodeMem ) cvode_mem ; if ( cv_mem == NULL ) return ; linit = CVDenseInit ; lsetup = CVDenseSetup ; lsolve = CVDenseSolve ; lfree = CVDenseFree ; lmem = cvdense_mem = ( CVDenseMem ) malloc ( sizeof ( CVDenseMemRec ) ) ; if ( cvdense_mem == NULL ) return ; if ( djac == NULL ) { jac = CVDenseDQJac ; } else { jac = djac ; } J_data = jac_data ; }
CVDense 
This routine initializes the memory record and sets various function
fields specific to the dense linear solver module.
CVDense This routine initializes the memory record and sets various function fields specific to the dense linear solver module .
/* Return immediately if cvode_mem is NULL */ /* CVode reports this error */ /* Set four main function fields in cv_mem */ /* Get memory for CVDenseMemRec */ /* CVDenseInit reports this error */ /* Set Jacobian routine field to user's djac or CVDenseDQJac */