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

Added the Fortran interface for SetNeighborPart

Browse Source
This commit is contained in:
falgout 2009-08-19 20:12:26 +00:00
parent 08a41748fc
commit 389dee8fac
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
sstruct_mv/F90_HYPRE_sstruct_grid.c
View File

@ -152,6 +152,34 @@ hypre_F90_IFACE(hypre_sstructgridaddvariable, HYPRE_SSTRUCTGRIDADDVARIABLE)
(HYPRE_SStructVariable) *vartype ));
}
/*--------------------------------------------------------------------------
* HYPRE_SStructGridSetNeighborPart
*--------------------------------------------------------------------------*/
void
hypre_F90_IFACE(hypre_sstructgridsetneighborpart, HYPRE_SSTRUCTGRIDSETNEIGHBORPART)
(long int *grid,
int *part,
int *ilower,
int *iupper,
int *nbor_part,
int *nbor_ilower,
int *nbor_iupper,
int *index_map,
int *index_dir,
int *ierr)
{
*ierr = (int) (HYPRE_SStructGridSetNeighborPart( (HYPRE_SStructGrid) *grid,
(int) *part,
(int *) ilower,
(int *) iupper,
(int) *nbor_part,
(int *) nbor_ilower,
(int *) nbor_iupper,
(int *) index_map,
(int *) index_dir ) );
}
/*--------------------------------------------------------------------------
* HYPRE_SStructGridSetNeighborBox
*--------------------------------------------------------------------------*/