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

Replaced call to hypre_GenerateLaplacian with call to GenerateLaplacian

Browse Source
This commit is contained in:
lambda 1999-08-20 04:00:52 +00:00
parent d2b4e89745
commit 5ea5cca419
2 changed files with 50 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
parcsr_linear_solvers/F90_par_laplace.c
View File

@ -16,36 +16,36 @@
#include "fortran.h"
/*--------------------------------------------------------------------------
* hypre_GenerateLaplacian
* GenerateLaplacian
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_generatelaplacian)( int *comm,
int *nx,
int *ny,
int *nz,
int *P,
int *Q,
int *R,
int *p,
int *q,
int *r,
double *value,
long int *matrix,
int *ierr )
hypre_F90_IFACE(generatelaplacian)( int *comm,
int *nx,
int *ny,
int *nz,
int *P,
int *Q,
int *R,
int *p,
int *q,
int *r,
double *value,
long int *matrix,
int *ierr )
{
*matrix = (long int) ( hypre_GenerateLaplacian( (MPI_Comm) *comm,
(int) *nx,
(int) *ny,
(int) *nz,
(int) *P,
(int) *Q,
(int) *R,
(int) *p,
(int) *q,
(int) *r,
(double *) value ) );
*matrix = (long int) ( GenerateLaplacian( (MPI_Comm) *comm,
(int) *nx,
(int) *ny,
(int) *nz,
(int) *P,
(int) *Q,
(int) *R,
(int) *p,
(int) *q,
(int) *r,
(double *) value ) );
*ierr = 0;
}

50
parcsr_ls/F90_par_laplace.c
View File

@ -16,36 +16,36 @@
#include "fortran.h"
/*--------------------------------------------------------------------------
* hypre_GenerateLaplacian
* GenerateLaplacian
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_generatelaplacian)( int *comm,
int *nx,
int *ny,
int *nz,
int *P,
int *Q,
int *R,
int *p,
int *q,
int *r,
double *value,
long int *matrix,
int *ierr )
hypre_F90_IFACE(generatelaplacian)( int *comm,
int *nx,
int *ny,
int *nz,
int *P,
int *Q,
int *R,
int *p,
int *q,
int *r,
double *value,
long int *matrix,
int *ierr )
{
*matrix = (long int) ( hypre_GenerateLaplacian( (MPI_Comm) *comm,
(int) *nx,
(int) *ny,
(int) *nz,
(int) *P,
(int) *Q,
(int) *R,
(int) *p,
(int) *q,
(int) *r,
(double *) value ) );
*matrix = (long int) ( GenerateLaplacian( (MPI_Comm) *comm,
(int) *nx,
(int) *ny,
(int) *nz,
(int) *P,
(int) *Q,
(int) *R,
(int) *p,
(int) *q,
(int) *r,
(double *) value ) );
*ierr = 0;
}