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

Removed HYPRE_CreateParVector from F90_par_vector.c, touched F90_parcsr_matrix.c

Browse Source
This commit is contained in:
lambda 1999-09-21 02:03:12 +00:00
parent 4698da9ad0
commit 643d9fc2a4
4 changed files with 4 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
parcsr_matrix_vector/F90_par_vector.c
View File

@ -15,23 +15,6 @@
#include "headers.h"
#include "fortran.h"
/*--------------------------------------------------------------------------
* hypre_ParVectorCreate
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_createparvector)( int *comm,
int *global_size,
long int *partitioning,
long int *vector,
int *ierr )
{
*vector = (long int) ( hypre_ParVectorCreate ( (MPI_Comm) *comm,
(int) *global_size,
(int *) *partitioning ) );
*ierr = 0;
}
/*--------------------------------------------------------------------------
* hypre_ParVectorSetDataOwner
*--------------------------------------------------------------------------*/

4
parcsr_matrix_vector/F90_parcsr_matrix.c
View File

@ -39,8 +39,8 @@ hypre_F90_IFACE(hypre_parcsrmatrixrowstarts)( long int *matrix,
long int *row_starts,
int *ierr )
{
*row_starts = (long int) ( hypre_ParCSRMatrixRowStarts
( (hypre_ParCSRMatrix *) *matrix ) );
*row_starts = (long int *) ( hypre_ParCSRMatrixRowStarts
( (hypre_ParCSRMatrix *) *matrix ) );
*ierr = 0;
}

17
parcsr_mv/F90_par_vector.c
View File

@ -15,23 +15,6 @@
#include "headers.h"
#include "fortran.h"
/*--------------------------------------------------------------------------
* hypre_ParVectorCreate
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_createparvector)( int *comm,
int *global_size,
long int *partitioning,
long int *vector,
int *ierr )
{
*vector = (long int) ( hypre_ParVectorCreate ( (MPI_Comm) *comm,
(int) *global_size,
(int *) *partitioning ) );
*ierr = 0;
}
/*--------------------------------------------------------------------------
* hypre_ParVectorSetDataOwner
*--------------------------------------------------------------------------*/

4
parcsr_mv/F90_parcsr_matrix.c
View File

@ -39,8 +39,8 @@ hypre_F90_IFACE(hypre_parcsrmatrixrowstarts)( long int *matrix,
long int *row_starts,
int *ierr )
{
*row_starts = (long int) ( hypre_ParCSRMatrixRowStarts
( (hypre_ParCSRMatrix *) *matrix ) );
*row_starts = (long int *) ( hypre_ParCSRMatrixRowStarts
( (hypre_ParCSRMatrix *) *matrix ) );
*ierr = 0;
}