hypre/struct_mv/HYPRE_struct_grid.c

/*BHEADER**********************************************************************
 * (c) 1997   The Regents of the University of California
 *
 * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright
 * notice, contact person, and disclaimer.
 *
 * $Revision$
 *********************************************************************EHEADER*/
/******************************************************************************
 *
 * HYPRE_StructGrid interface
 *
 *****************************************************************************/

#include "headers.h"

/*--------------------------------------------------------------------------
 * HYPRE_NewStructGrid
 *--------------------------------------------------------------------------*/

HYPRE_StructGrid
HYPRE_NewStructGrid( MPI_Comm *comm,
                   int       dim )
{
   return ( (HYPRE_StructGrid) hypre_NewStructGrid( comm, dim ) );
}

/*--------------------------------------------------------------------------
 * HYPRE_FreeStructGrid
 *--------------------------------------------------------------------------*/

void 
HYPRE_FreeStructGrid( HYPRE_StructGrid grid )
{
   hypre_FreeStructGrid( (hypre_StructGrid *) grid );
}

/*--------------------------------------------------------------------------
 * HYPRE_SetStructGridExtents
 *--------------------------------------------------------------------------*/

void 
HYPRE_SetStructGridExtents( HYPRE_StructGrid  grid,
                          int            *ilower,
                          int            *iupper )
{
   hypre_Index  new_ilower;
   hypre_Index  new_iupper;

   int        d;

   for (d = 0; d < hypre_StructGridDim((hypre_StructGrid *) grid); d++)
   {
      hypre_IndexD(new_ilower, d) = ilower[d];
      hypre_IndexD(new_iupper, d) = iupper[d];
   }
   for (d = hypre_StructGridDim((hypre_StructGrid *) grid); d < 3; d++)
   {
      hypre_IndexD(new_ilower, d) = 0;
      hypre_IndexD(new_iupper, d) = 0;
   }

   hypre_SetStructGridExtents( (hypre_StructGrid *) grid, new_ilower, new_iupper );
}

/*--------------------------------------------------------------------------
 * HYPRE_AssembleStructGrid
 *--------------------------------------------------------------------------*/

void 
HYPRE_AssembleStructGrid( HYPRE_StructGrid grid )
{
   hypre_AssembleStructGrid( (hypre_StructGrid *) grid );
}