Skip to content

Commit

Permalink
Avoid define conflict with sundials
Browse files Browse the repository at this point in the history
  • Loading branch information
@dschwoerer
dschwoerer committed Nov 25, 2024
1 parent 088c92f commit 4b190a0
Show file tree
Hide file tree
Showing 3 changed files with 48 additions and 48 deletions.
46 changes: 23 additions & 23 deletions externalpackages/PVODE/include/pvode/band.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -107,13 +107,13 @@ namespace pvode {
* references and without knowing too much about the underlying *
* element storage. The only storage assumption needed is that *
* elements are stored columnwise and that a pointer into the jth *
* column of elements can be obtained via the BAND_COL macro. The *
* BAND_COL_ELEM macro selects an element from a column which has *
* already been isolated via BAND_COL. BAND_COL_ELEM allows the *
* column of elements can be obtained via the PVODE_BAND_COL macro. The *
* PVODE_BAND_COL_ELEM macro selects an element from a column which has *
* already been isolated via PVODE_BAND_COL. PVODE_BAND_COL_ELEM allows the *
* user to avoid the translation from the matrix location (i,j) *
* to the index in the array returned by BAND_COL at which the *
* (i,j)th element is stored. See the documentation for BAND_COL *
* and BAND_COL_ELEM for usage details. Users should use these *
* to the index in the array returned by PVODE_BAND_COL at which the *
* (i,j)th element is stored. See the documentation for PVODE_BAND_COL *
* and PVODE_BAND_COL_ELEM for usage details. Users should use these *
* macros whenever possible. *
* *
******************************************************************/
Expand All @@ -131,49 +131,49 @@ typedef struct bandmat_type {

/******************************************************************
* *
* Macro : BAND_ELEM *
* Usage : BAND_ELEM(A,i,j) = a_ij; OR *
* a_ij = BAND_ELEM(A,i,j); *
* Macro : PVODE_BAND_ELEM *
* Usage : PVODE_BAND_ELEM(A,i,j) = a_ij; OR *
* a_ij = PVODE_BAND_ELEM(A,i,j); *
*----------------------------------------------------------------*
* BAND_ELEM(A,i,j) references the (i,j)th element of the *
* PVODE_BAND_ELEM(A,i,j) references the (i,j)th element of the *
* N by N band matrix A, where 0 <= i,j <= N-1. The location *
* (i,j) should further satisfy j-(A->mu) <= i <= j+(A->ml). *
* *
******************************************************************/

#define BAND_ELEM(A,i,j) ((A->data)[j][i-j+(A->smu)])
#define PVODE_BAND_ELEM(A,i,j) ((A->data)[j][i-j+(A->smu)])


/******************************************************************
* *
* Macro : BAND_COL *
* Usage : col_j = BAND_COL(A,j); *
* Macro : PVODE_BAND_COL *
* Usage : col_j = PVODE_BAND_COL(A,j); *
*----------------------------------------------------------------*
* BAND_COL(A,j) references the diagonal element of the jth *
* PVODE_BAND_COL(A,j) references the diagonal element of the jth *
* column of the N by N band matrix A, 0 <= j <= N-1. The type of *
* the expression BAND_COL(A,j) is real *. The pointer returned *
* by the call BAND_COL(A,j) can be treated as an array which is *
* the expression PVODE_BAND_COL(A,j) is real *. The pointer returned *
* by the call PVODE_BAND_COL(A,j) can be treated as an array which is *
* indexed from -(A->mu) to (A->ml). *
* *
******************************************************************/

#define BAND_COL(A,j) (((A->data)[j])+(A->smu))
#define PVODE_BAND_COL(A,j) (((A->data)[j])+(A->smu))


/******************************************************************
* *
* Macro : BAND_COL_ELEM *
* Usage : col_j = BAND_COL(A,j); *
* BAND_COL_ELEM(col_j,i,j) = a_ij; OR *
* a_ij = BAND_COL_ELEM(col_j,i,j); *
* Macro : PVODE_BAND_COL_ELEM *
* Usage : col_j = PVODE_BAND_COL(A,j); *
* PVODE_BAND_COL_ELEM(col_j,i,j) = a_ij; OR *
* a_ij = PVODE_BAND_COL_ELEM(col_j,i,j); *
*----------------------------------------------------------------*
* This macro references the (i,j)th entry of the band matrix A *
* when used in conjunction with BAND_COL as shown above. The *
* when used in conjunction with PVODE_BAND_COL as shown above. The *
* index (i,j) should satisfy j-(A->mu) <= i <= j+(A->ml). *
* *
******************************************************************/

#define BAND_COL_ELEM(col_j,i,j) (col_j[i-j])
#define PVODE_BAND_COL_ELEM(col_j,i,j) (col_j[i-j])


/* Functions that use the BandMat representation for a band matrix */
Expand Down
46 changes: 23 additions & 23 deletions externalpackages/PVODE/precon/band.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -107,13 +107,13 @@ namespace pvode {
* references and without knowing too much about the underlying *
* element storage. The only storage assumption needed is that *
* elements are stored columnwise and that a pointer into the jth *
* column of elements can be obtained via the BAND_COL macro. The *
* BAND_COL_ELEM macro selects an element from a column which has *
* already been isolated via BAND_COL. BAND_COL_ELEM allows the *
* column of elements can be obtained via the PVODE_BAND_COL macro. The *
* PVODE_BAND_COL_ELEM macro selects an element from a column which has *
* already been isolated via PVODE_BAND_COL. PVODE_BAND_COL_ELEM allows the *
* user to avoid the translation from the matrix location (i,j) *
* to the index in the array returned by BAND_COL at which the *
* (i,j)th element is stored. See the documentation for BAND_COL *
* and BAND_COL_ELEM for usage details. Users should use these *
* to the index in the array returned by PVODE_BAND_COL at which the *
* (i,j)th element is stored. See the documentation for PVODE_BAND_COL *
* and PVODE_BAND_COL_ELEM for usage details. Users should use these *
* macros whenever possible. *
* *
******************************************************************/
Expand All @@ -131,49 +131,49 @@ typedef struct bandmat_type {

/******************************************************************
* *
* Macro : BAND_ELEM *
* Usage : BAND_ELEM(A,i,j) = a_ij; OR *
* a_ij = BAND_ELEM(A,i,j); *
* Macro : PVODE_BAND_ELEM *
* Usage : PVODE_BAND_ELEM(A,i,j) = a_ij; OR *
* a_ij = PVODE_BAND_ELEM(A,i,j); *
*----------------------------------------------------------------*
* BAND_ELEM(A,i,j) references the (i,j)th element of the *
* PVODE_BAND_ELEM(A,i,j) references the (i,j)th element of the *
* N by N band matrix A, where 0 <= i,j <= N-1. The location *
* (i,j) should further satisfy j-(A->mu) <= i <= j+(A->ml). *
* *
******************************************************************/

#define BAND_ELEM(A,i,j) ((A->data)[j][i-j+(A->smu)])
#define PVODE_BAND_ELEM(A,i,j) ((A->data)[j][i-j+(A->smu)])


/******************************************************************
* *
* Macro : BAND_COL *
* Usage : col_j = BAND_COL(A,j); *
* Macro : PVODE_BAND_COL *
* Usage : col_j = PVODE_BAND_COL(A,j); *
*----------------------------------------------------------------*
* BAND_COL(A,j) references the diagonal element of the jth *
* PVODE_BAND_COL(A,j) references the diagonal element of the jth *
* column of the N by N band matrix A, 0 <= j <= N-1. The type of *
* the expression BAND_COL(A,j) is real *. The pointer returned *
* by the call BAND_COL(A,j) can be treated as an array which is *
* the expression PVODE_BAND_COL(A,j) is real *. The pointer returned *
* by the call PVODE_BAND_COL(A,j) can be treated as an array which is *
* indexed from -(A->mu) to (A->ml). *
* *
******************************************************************/

#define BAND_COL(A,j) (((A->data)[j])+(A->smu))
#define PVODE_BAND_COL(A,j) (((A->data)[j])+(A->smu))


/******************************************************************
* *
* Macro : BAND_COL_ELEM *
* Usage : col_j = BAND_COL(A,j); *
* BAND_COL_ELEM(col_j,i,j) = a_ij; OR *
* a_ij = BAND_COL_ELEM(col_j,i,j); *
* Macro : PVODE_BAND_COL_ELEM *
* Usage : col_j = PVODE_BAND_COL(A,j); *
* PVODE_BAND_COL_ELEM(col_j,i,j) = a_ij; OR *
* a_ij = PVODE_BAND_COL_ELEM(col_j,i,j); *
*----------------------------------------------------------------*
* This macro references the (i,j)th entry of the band matrix A *
* when used in conjunction with BAND_COL as shown above. The *
* when used in conjunction with PVODE_BAND_COL as shown above. The *
* index (i,j) should satisfy j-(A->mu) <= i <= j+(A->ml). *
* *
******************************************************************/

#define BAND_COL_ELEM(col_j,i,j) (col_j[i-j])
#define PVODE_BAND_COL_ELEM(col_j,i,j) (col_j[i-j])


/* Functions that use the BandMat representation for a band matrix */
Expand Down
4 changes: 2 additions & 2 deletions externalpackages/PVODE/precon/pvbbdpre.cpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -364,13 +364,13 @@ static void PVBBDDQJac(integer Nlocal, integer mudq, integer mldq,
/* Restore ytemp, then form and load difference quotients */
for (j=group-1; j < Nlocal; j+=width) {
ytemp_data[j] = y_data[j];
col_j = BAND_COL(J,j);
col_j = PVODE_BAND_COL(J,j);
inc = MAX(rely*ABS(y_data[j]), minInc/ewt_data[j]);
inc_inv = ONE/inc;
i1 = MAX(0, j-mukeep);
i2 = MIN(j+mlkeep, Nlocal-1);
for (i=i1; i <= i2; i++)
BAND_COL_ELEM(col_j,i,j) =
PVODE_BAND_COL_ELEM(col_j,i,j) =
inc_inv * (gtemp_data[i] - gy_data[i]);
}
}
Expand Down

0 comments on commit 4b190a0

Please sign in to comment.