CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

'Const'ified some arguments in invocations from F90 sources

Browse Source
This commit is contained in:
lambda 1999-09-27 16:12:42 +00:00
parent 70f1173c61
commit ad7476733b
6 changed files with 80 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
IJ_matrix_vector/F90_HYPRE_IJMatrix.c
View File

@ -26,7 +26,7 @@ hypre_F90_IFACE(hypre_ijmatrixcreate)( int *comm,
int *global_n,
int *ierr )
{
*ierr = (int) ( HYPRE_IJMatrixCreate( (MPI_Comm) *comm,
*ierr = (int) ( HYPRE_IJMatrixCreate( (MPI_Comm) *comm,
(HYPRE_IJMatrix *) matrix,
(int) *global_m,
(int) *global_n ) );
@ -181,9 +181,9 @@ hypre_F90_IFACE(hypre_ijmatrixinsertblock)( long int *matrix,
*ierr = (int) ( HYPRE_IJMatrixInsertBlock( (HYPRE_IJMatrix) *matrix,
(int) *m,
(int) *n,
(int *) rows,
(int *) cols,
(double *) values ) );
(const int *) rows,
(const int *) cols,
(const double *) values ) );
}
@ -203,9 +203,9 @@ hypre_F90_IFACE(hypre_ijmatrixaddtoblock)( long int *matrix,
*ierr = (int) ( HYPRE_IJMatrixAddToBlock( (HYPRE_IJMatrix) *matrix,
(int) *m,
(int) *n,
(int *) rows,
(int *) cols,
(double *) values ) );
(const int *) rows,
(const int *) cols,
(const double *) values ) );
}
@ -224,8 +224,8 @@ hypre_F90_IFACE(hypre_ijmatrixinsertrow)( long int *matrix,
*ierr = (int) ( HYPRE_IJMatrixInsertRow( (HYPRE_IJMatrix) *matrix,
(int) *n,
(int) *row,
(int *) cols,
(double *) values ) );
(const int *) cols,
(const double *) values ) );
}

54
IJ_matrix_vector/F90_HYPRE_IJVector.c
View File

@ -26,8 +26,8 @@ hypre_F90_IFACE(hypre_ijvectorcreate)( int *comm,
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorCreate( (MPI_Comm) *comm,
(HYPRE_IJVector *) vector,
(int) *global_n ) );
(HYPRE_IJVector *) vector,
(int) *global_n ) );
}
/*--------------------------------------------------------------------------
@ -112,7 +112,7 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalstoragety)( long int *vector,
void
hypre_F90_IFACE(hypre_ijvectorzerolocalcomps)( long int *vector,
int *ierr )
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorZeroLocalComponents(
(HYPRE_IJVector) *vector ) );
@ -133,9 +133,9 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalcomps)( long int *vector,
*ierr = (int) ( HYPRE_IJVectorSetLocalComponents(
(HYPRE_IJVector) *vector,
(int) *num_values,
(int *) glob_vec_indices,
(int *) value_indices,
(double *) values ) );
(const int *) glob_vec_indices,
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -154,8 +154,8 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalcompsinbl)( long int *vector,
(HYPRE_IJVector) *vector,
(int) *glob_vec_start,
(int) *glob_vec_stop,
(int *) value_indices,
(double *) values ) );
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -164,18 +164,18 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalcompsinbl)( long int *vector,
void
hypre_F90_IFACE(hypre_ijvectoraddtolocalcomps)( long int *vector,
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorAddToLocalComponents(
(HYPRE_IJVector) *vector,
(int) *num_values,
(int *) glob_vec_indices,
(int *) value_indices,
(double *) values ) );
(const int *) glob_vec_indices,
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -194,8 +194,8 @@ hypre_F90_IFACE(hypre_ijvectoraddtolocalcompsbl)( long int *vector,
(HYPRE_IJVector) *vector,
(int) *glob_vec_start,
(int) *glob_vec_stop,
(int *) value_indices,
(double *) values ) );
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -215,18 +215,18 @@ hypre_F90_IFACE(hypre_ijvectorassemble)( long int *vector,
void
hypre_F90_IFACE(hypre_ijvectorgetlocalcomps)( long int *vector,
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorGetLocalComponents(
(HYPRE_IJVector) *vector,
(int) *num_values,
(int *) glob_vec_indices,
(int *) value_indices,
(double *) values ) );
(const int *) glob_vec_indices,
(const int *) value_indices,
(double *) values ) );
}
/*--------------------------------------------------------------------------
@ -245,7 +245,7 @@ hypre_F90_IFACE(hypre_ijvectorgetlocalcompsinbl)( long int *vector,
(HYPRE_IJVector) *vector,
(int) *glob_vec_start,
(int) *glob_vec_stop,
(int *) value_indices,
(const int *) value_indices,
(double *) values ) );
}

8
IJ_matrix_vector/hypre_IJVector_parcsr.c
View File

@ -269,8 +269,8 @@ hypre_IJVectorSetLocalComponentsPar(hypre_IJVector *vector,
/* Determine whether *glob_vec_indices points to local indices only */
for (i = 0; i < num_values; i++)
{ ierr += !(glob_vec_indices[i] >= vec_start);
ierr += !(glob_vec_indices[i] < vec_stop);
{ ierr += (glob_vec_indices[i] < vec_start);
ierr += (glob_vec_indices[i] >= vec_stop);
};
data = hypre_VectorData(local_vector);
@ -581,8 +581,8 @@ hypre_IJVectorGetLocalComponentsPar(hypre_IJVector *vector,
/* Determine whether *glob_vec_indices points to local indices only */
for (i = 0; i < num_values; i++)
{ ierr += !(glob_vec_indices[i] >= vec_start);
ierr += !(glob_vec_indices[i] < vec_stop);
{ ierr += (glob_vec_indices[i] < vec_start);
ierr += (glob_vec_indices[i] >= vec_stop);
};
data = hypre_VectorData(local_vector);

18
IJ_mv/F90_HYPRE_IJMatrix.c
View File

@ -26,7 +26,7 @@ hypre_F90_IFACE(hypre_ijmatrixcreate)( int *comm,
int *global_n,
int *ierr )
{
*ierr = (int) ( HYPRE_IJMatrixCreate( (MPI_Comm) *comm,
*ierr = (int) ( HYPRE_IJMatrixCreate( (MPI_Comm) *comm,
(HYPRE_IJMatrix *) matrix,
(int) *global_m,
(int) *global_n ) );
@ -181,9 +181,9 @@ hypre_F90_IFACE(hypre_ijmatrixinsertblock)( long int *matrix,
*ierr = (int) ( HYPRE_IJMatrixInsertBlock( (HYPRE_IJMatrix) *matrix,
(int) *m,
(int) *n,
(int *) rows,
(int *) cols,
(double *) values ) );
(const int *) rows,
(const int *) cols,
(const double *) values ) );
}
@ -203,9 +203,9 @@ hypre_F90_IFACE(hypre_ijmatrixaddtoblock)( long int *matrix,
*ierr = (int) ( HYPRE_IJMatrixAddToBlock( (HYPRE_IJMatrix) *matrix,
(int) *m,
(int) *n,
(int *) rows,
(int *) cols,
(double *) values ) );
(const int *) rows,
(const int *) cols,
(const double *) values ) );
}
@ -224,8 +224,8 @@ hypre_F90_IFACE(hypre_ijmatrixinsertrow)( long int *matrix,
*ierr = (int) ( HYPRE_IJMatrixInsertRow( (HYPRE_IJMatrix) *matrix,
(int) *n,
(int) *row,
(int *) cols,
(double *) values ) );
(const int *) cols,
(const double *) values ) );
}

54
IJ_mv/F90_HYPRE_IJVector.c
View File

@ -26,8 +26,8 @@ hypre_F90_IFACE(hypre_ijvectorcreate)( int *comm,
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorCreate( (MPI_Comm) *comm,
(HYPRE_IJVector *) vector,
(int) *global_n ) );
(HYPRE_IJVector *) vector,
(int) *global_n ) );
}
/*--------------------------------------------------------------------------
@ -112,7 +112,7 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalstoragety)( long int *vector,
void
hypre_F90_IFACE(hypre_ijvectorzerolocalcomps)( long int *vector,
int *ierr )
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorZeroLocalComponents(
(HYPRE_IJVector) *vector ) );
@ -133,9 +133,9 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalcomps)( long int *vector,
*ierr = (int) ( HYPRE_IJVectorSetLocalComponents(
(HYPRE_IJVector) *vector,
(int) *num_values,
(int *) glob_vec_indices,
(int *) value_indices,
(double *) values ) );
(const int *) glob_vec_indices,
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -154,8 +154,8 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalcompsinbl)( long int *vector,
(HYPRE_IJVector) *vector,
(int) *glob_vec_start,
(int) *glob_vec_stop,
(int *) value_indices,
(double *) values ) );
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -164,18 +164,18 @@ hypre_F90_IFACE(hypre_ijvectorsetlocalcompsinbl)( long int *vector,
void
hypre_F90_IFACE(hypre_ijvectoraddtolocalcomps)( long int *vector,
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorAddToLocalComponents(
(HYPRE_IJVector) *vector,
(int) *num_values,
(int *) glob_vec_indices,
(int *) value_indices,
(double *) values ) );
(const int *) glob_vec_indices,
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -194,8 +194,8 @@ hypre_F90_IFACE(hypre_ijvectoraddtolocalcompsbl)( long int *vector,
(HYPRE_IJVector) *vector,
(int) *glob_vec_start,
(int) *glob_vec_stop,
(int *) value_indices,
(double *) values ) );
(const int *) value_indices,
(const double *) values ) );
}
/*--------------------------------------------------------------------------
@ -215,18 +215,18 @@ hypre_F90_IFACE(hypre_ijvectorassemble)( long int *vector,
void
hypre_F90_IFACE(hypre_ijvectorgetlocalcomps)( long int *vector,
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
int *num_values,
int *glob_vec_indices,
int *value_indices,
double *values,
int *ierr )
{
*ierr = (int) ( HYPRE_IJVectorGetLocalComponents(
(HYPRE_IJVector) *vector,
(int) *num_values,
(int *) glob_vec_indices,
(int *) value_indices,
(double *) values ) );
(const int *) glob_vec_indices,
(const int *) value_indices,
(double *) values ) );
}
/*--------------------------------------------------------------------------
@ -245,7 +245,7 @@ hypre_F90_IFACE(hypre_ijvectorgetlocalcompsinbl)( long int *vector,
(HYPRE_IJVector) *vector,
(int) *glob_vec_start,
(int) *glob_vec_stop,
(int *) value_indices,
(const int *) value_indices,
(double *) values ) );
}

8
IJ_mv/hypre_IJVector_parcsr.c
View File

@ -269,8 +269,8 @@ hypre_IJVectorSetLocalComponentsPar(hypre_IJVector *vector,
/* Determine whether *glob_vec_indices points to local indices only */
for (i = 0; i < num_values; i++)
{ ierr += !(glob_vec_indices[i] >= vec_start);
ierr += !(glob_vec_indices[i] < vec_stop);
{ ierr += (glob_vec_indices[i] < vec_start);
ierr += (glob_vec_indices[i] >= vec_stop);
};
data = hypre_VectorData(local_vector);
@ -581,8 +581,8 @@ hypre_IJVectorGetLocalComponentsPar(hypre_IJVector *vector,
/* Determine whether *glob_vec_indices points to local indices only */
for (i = 0; i < num_values; i++)
{ ierr += !(glob_vec_indices[i] >= vec_start);
ierr += !(glob_vec_indices[i] < vec_stop);
{ ierr += (glob_vec_indices[i] < vec_start);
ierr += (glob_vec_indices[i] >= vec_stop);
};
data = hypre_VectorData(local_vector);