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

Making for HYPRE_ParCSRMatrixMatvec and HYPRE_ParCSRMatrixMatvecT calls from Fortran

Browse Source
This commit is contained in:
lambda 2000-03-22 17:54:47 +00:00
parent 9f3d642d24
commit 64025924af
4 changed files with 98 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
parcsr_matrix_vector/F90_HYPRE_parcsr_matrix.c
View File

@ -204,3 +204,42 @@ hypre_F90_IFACE(hypre_parcsrmatrixrestorerow)( long int *matrix,
*values_ptr = (long int) values;
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRMatrixMatvec
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_parcsrmatrixmatvec( double *alpha,
long int *A,
long int *x,
double *beta,
long int *y )
{
*ierr = (int) ( HYPRE_ParCSRMatrixMatvec( (double) *alpha,
(HYPRE_ParCSRMatrix) *A,
(HYPRE_ParVector) *x,
(double) *beta,
(HYPRE_ParVector) *y ) );
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRMatrixMatvecT
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_parcsrmatrixmatvect( double *alpha,
long int *A,
long int *x,
double *beta,
long int *y )
{
*ierr = (int) ( HYPRE_ParCSRMatrixMatvecT( (double) *alpha,
(HYPRE_ParCSRMatrix) *A,
(HYPRE_ParVector) *x,
(double) *beta,
(HYPRE_ParVector) *y ) );
}

14
parcsr_matrix_vector/HYPRE_parcsr_matrix.c
View File

@ -255,8 +255,11 @@ HYPRE_CSRMatrixToParCSRMatrix( MPI_Comm comm,
*--------------------------------------------------------------------------*/
int
HYPRE_ParCSRMatrixMatvec( double alpha, HYPRE_ParCSRMatrix A, HYPRE_ParVector x,
double beta, HYPRE_ParVector y)
HYPRE_ParCSRMatrixMatvec( double alpha,
HYPRE_ParCSRMatrix A,
HYPRE_ParVector x,
double beta,
HYPRE_ParVector y )
{
return ( hypre_ParCSRMatrixMatvec( alpha, (hypre_ParCSRMatrix *) A,
(hypre_ParVector *) x, beta, (hypre_ParVector *) y) );
@ -267,8 +270,11 @@ HYPRE_ParCSRMatrixMatvec( double alpha, HYPRE_ParCSRMatrix A, HYPRE_ParVector x,
*--------------------------------------------------------------------------*/
int
HYPRE_ParCSRMatrixMatvecT( double alpha, HYPRE_ParCSRMatrix A, HYPRE_ParVector x,
double beta, HYPRE_ParVector y)
HYPRE_ParCSRMatrixMatvecT( double alpha,
HYPRE_ParCSRMatrix A,
HYPRE_ParVector x,
double beta,
HYPRE_ParVector y )
{
return ( hypre_ParCSRMatrixMatvecT( alpha, (hypre_ParCSRMatrix *) A,
(hypre_ParVector *) x, beta, (hypre_ParVector *) y) );

39
parcsr_mv/F90_HYPRE_parcsr_matrix.c
View File

@ -204,3 +204,42 @@ hypre_F90_IFACE(hypre_parcsrmatrixrestorerow)( long int *matrix,
*values_ptr = (long int) values;
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRMatrixMatvec
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_parcsrmatrixmatvec( double *alpha,
long int *A,
long int *x,
double *beta,
long int *y )
{
*ierr = (int) ( HYPRE_ParCSRMatrixMatvec( (double) *alpha,
(HYPRE_ParCSRMatrix) *A,
(HYPRE_ParVector) *x,
(double) *beta,
(HYPRE_ParVector) *y ) );
}
/*--------------------------------------------------------------------------
* HYPRE_ParCSRMatrixMatvecT
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_parcsrmatrixmatvect( double *alpha,
long int *A,
long int *x,
double *beta,
long int *y )
{
*ierr = (int) ( HYPRE_ParCSRMatrixMatvecT( (double) *alpha,
(HYPRE_ParCSRMatrix) *A,
(HYPRE_ParVector) *x,
(double) *beta,
(HYPRE_ParVector) *y ) );
}

14
parcsr_mv/HYPRE_parcsr_matrix.c
View File

@ -255,8 +255,11 @@ HYPRE_CSRMatrixToParCSRMatrix( MPI_Comm comm,
*--------------------------------------------------------------------------*/
int
HYPRE_ParCSRMatrixMatvec( double alpha, HYPRE_ParCSRMatrix A, HYPRE_ParVector x,
double beta, HYPRE_ParVector y)
HYPRE_ParCSRMatrixMatvec( double alpha,
HYPRE_ParCSRMatrix A,
HYPRE_ParVector x,
double beta,
HYPRE_ParVector y )
{
return ( hypre_ParCSRMatrixMatvec( alpha, (hypre_ParCSRMatrix *) A,
(hypre_ParVector *) x, beta, (hypre_ParVector *) y) );
@ -267,8 +270,11 @@ HYPRE_ParCSRMatrixMatvec( double alpha, HYPRE_ParCSRMatrix A, HYPRE_ParVector x,
*--------------------------------------------------------------------------*/
int
HYPRE_ParCSRMatrixMatvecT( double alpha, HYPRE_ParCSRMatrix A, HYPRE_ParVector x,
double beta, HYPRE_ParVector y)
HYPRE_ParCSRMatrixMatvecT( double alpha,
HYPRE_ParCSRMatrix A,
HYPRE_ParVector x,
double beta,
HYPRE_ParVector y )
{
return ( hypre_ParCSRMatrixMatvecT( alpha, (hypre_ParCSRMatrix *) A,
(hypre_ParVector *) x, beta, (hypre_ParVector *) y) );