140 lines
5.8 KiB
C
140 lines
5.8 KiB
C
/*BHEADER**********************************************************************
|
|
* Copyright (c) 2006 The Regents of the University of California.
|
|
* Produced at the Lawrence Livermore National Laboratory.
|
|
* Written by the HYPRE team. UCRL-CODE-222953.
|
|
* All rights reserved.
|
|
*
|
|
* This file is part of HYPRE (see http://www.llnl.gov/CASC/hypre/).
|
|
* Please see the COPYRIGHT_and_LICENSE file for the copyright notice,
|
|
* disclaimer, contact information and the GNU Lesser General Public License.
|
|
*
|
|
* HYPRE is free software; you can redistribute it and/or modify it under the
|
|
* terms of the GNU General Public License (as published by the Free Software
|
|
* Foundation) version 2.1 dated February 1999.
|
|
*
|
|
* HYPRE is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
* WARRANTY; without even the IMPLIED WARRANTY OF MERCHANTABILITY or FITNESS
|
|
* FOR A PARTICULAR PURPOSE. See the terms and conditions of the GNU General
|
|
* Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public License
|
|
* along with this program; if not, write to the Free Software Foundation,
|
|
* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
* $Revision$
|
|
***********************************************************************EHEADER*/
|
|
|
|
|
|
|
|
/******************************************************************************
|
|
*
|
|
* Header info for the hypre_SStructGraph structures
|
|
*
|
|
*****************************************************************************/
|
|
|
|
#ifndef hypre_SSTRUCT_GRAPH_HEADER
|
|
#define hypre_SSTRUCT_GRAPH_HEADER
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* hypre_SStructGraph:
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
typedef struct
|
|
{
|
|
int to_part;
|
|
hypre_Index to_index;
|
|
int to_var;
|
|
int to_box; /* local box number */
|
|
int to_proc;
|
|
int rank;
|
|
|
|
} hypre_SStructUEntry;
|
|
|
|
typedef struct
|
|
{
|
|
int part;
|
|
hypre_Index index;
|
|
int var;
|
|
int box; /* local box number */
|
|
int nUentries;
|
|
hypre_SStructUEntry *Uentries;
|
|
|
|
} hypre_SStructUVEntry;
|
|
|
|
typedef struct hypre_SStructGraph_struct
|
|
{
|
|
MPI_Comm comm;
|
|
int ndim;
|
|
hypre_SStructGrid *grid;
|
|
int nparts;
|
|
hypre_SStructPGrid **pgrids;
|
|
hypre_SStructStencil ***stencils; /* each (part, var) has a stencil */
|
|
|
|
/* U-graph info: Entries are referenced via local grid-variable rank. */
|
|
int nUventries; /* number of iUventries */
|
|
int aUventries; /* alloc size of iUventries */
|
|
int *iUventries;
|
|
|
|
|
|
hypre_SStructUVEntry **Uventries;
|
|
int totUentries;
|
|
|
|
int ref_count;
|
|
|
|
int type; /* GEC0203 */
|
|
} hypre_SStructGraph;
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* Accessor macros: hypre_SStructGraph
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
#define hypre_SStructGraphComm(graph) ((graph) -> comm)
|
|
#define hypre_SStructGraphNDim(graph) ((graph) -> ndim)
|
|
#define hypre_SStructGraphGrid(graph) ((graph) -> grid)
|
|
#define hypre_SStructGraphNParts(graph) ((graph) -> nparts)
|
|
#define hypre_SStructGraphPGrids(graph) ((graph) -> pgrids)
|
|
#define hypre_SStructGraphPGrid(graph, p) ((graph) -> pgrids[p])
|
|
#define hypre_SStructGraphStencils(graph) ((graph) -> stencils)
|
|
#define hypre_SStructGraphStencil(graph, p, v) ((graph) -> stencils[p][v])
|
|
#define hypre_SStructGraphNUVEntries(graph) ((graph) -> nUventries)
|
|
#define hypre_SStructGraphAUVEntries(graph) ((graph) -> aUventries)
|
|
#define hypre_SStructGraphIUVEntries(graph) ((graph) -> iUventries)
|
|
#define hypre_SStructGraphIUVEntry(graph, i) ((graph) -> iUventries[i])
|
|
#define hypre_SStructGraphUVEntries(graph) ((graph) -> Uventries)
|
|
#define hypre_SStructGraphUVEntry(graph, i) ((graph) -> Uventries[i])
|
|
#define hypre_SStructGraphTotUEntries(graph) ((graph) -> totUentries)
|
|
#define hypre_SStructGraphRefCount(graph) ((graph) -> ref_count)
|
|
#define hypre_SStructGraphObjectType(graph) ((graph) -> type)
|
|
|
|
/*--------------------------------------------------------------------------
|
|
* Accessor macros: hypre_SStructUVEntry
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
#define hypre_SStructUVEntryPart(Uv) ((Uv) -> part)
|
|
#define hypre_SStructUVEntryIndex(Uv) ((Uv) -> index)
|
|
#define hypre_SStructUVEntryVar(Uv) ((Uv) -> var)
|
|
#define hypre_SStructUVEntryBox(Uv) ((Uv) -> box)
|
|
#define hypre_SStructUVEntryNUEntries(Uv) ((Uv) -> nUentries)
|
|
#define hypre_SStructUVEntryUEntries(Uv) ((Uv) -> Uentries)
|
|
#define hypre_SStructUVEntryUEntry(Uv, i) &((Uv) -> Uentries[i])
|
|
#define hypre_SStructUVEntryToPart(Uv, i) ((Uv) -> Uentries[i].to_part)
|
|
#define hypre_SStructUVEntryToIndex(Uv, i) ((Uv) -> Uentries[i].to_index)
|
|
#define hypre_SStructUVEntryToVar(Uv, i) ((Uv) -> Uentries[i].to_var)
|
|
#define hypre_SStructUVEntryToBox(Uv, i) ((Uv) -> Uentries[i].to_box)
|
|
#define hypre_SStructUVEntryToProc(Uv, i) ((Uv) -> Uentries[i].to_proc)
|
|
#define hypre_SStructUVEntryRank(Uv, i) ((Uv) -> Uentries[i].rank)
|
|
/*--------------------------------------------------------------------------
|
|
* Accessor macros: hypre_SStructUEntry
|
|
*--------------------------------------------------------------------------*/
|
|
|
|
#define hypre_SStructUEntryToPart(U) ((U) -> to_part)
|
|
#define hypre_SStructUEntryToIndex(U) ((U) -> to_index)
|
|
#define hypre_SStructUEntryToVar(U) ((U) -> to_var)
|
|
#define hypre_SStructUEntryToBox(U) ((U) -> to_box)
|
|
#define hypre_SStructUEntryToProc(U) ((U) -> to_proc)
|
|
#define hypre_SStructUEntryRank(U) ((U) -> rank)
|
|
|
|
#endif
|
|
|
|
|