/usr/include/_hypre_sstruct_mv.h is in libhypre-dev 2.4.0b-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 | /*BHEADER**********************************************************************
* Copyright (c) 2008, Lawrence Livermore National Security, LLC.
* Produced at the Lawrence Livermore National Laboratory.
* This file is part of HYPRE. See file COPYRIGHT for details.
*
* HYPRE is free software; you can redistribute it and/or modify it under the
* terms of the GNU Lesser General Public License (as published by the Free
* Software Foundation) version 2.1 dated February 1999.
*
* $Revision: 2.6 $
***********************************************************************EHEADER*/
#include "_hypre_utilities.h"
#include "HYPRE_sstruct_mv.h"
#ifndef hypre_SSTRUCT_MV_HEADER
#define hypre_SSTRUCT_MV_HEADER
#include "_hypre_struct_mv.h"
#include "_hypre_IJ_mv.h"
#include "HYPRE.h"
#ifdef __cplusplus
extern "C" {
#endif
/******************************************************************************
*
*****************************************************************************/
#ifndef hypre_BOX_MAP_HEADER
#define hypre_BOX_MAP_HEADER
/*--------------------------------------------------------------------------
* hypre_StructMap:
*--------------------------------------------------------------------------*/
typedef struct hypre_BoxMapEntry_struct
{
hypre_Index imin;
hypre_Index imax;
/* GEC0902 additional information for ghost calculation in the offset */
int num_ghost[6];
void *info;
/* link list of hypre_BoxMapEntries, ones on the process listed first. */
struct hypre_BoxMapEntry_struct *next;
} hypre_BoxMapEntry;
typedef struct
{
int max_nentries;
hypre_Index global_imin;
hypre_Index global_imax;
/* GEC0902 additional information for ghost calculation in the offset */
int num_ghost[6];
int nentries;
hypre_BoxMapEntry *entries;
hypre_BoxMapEntry **table; /* this points into 'entries' array */
hypre_BoxMapEntry *boxproc_table; /* (proc, local_box) table pointer */
int *indexes[3];
int size[3];
int *boxproc_offset;
int last_index[3];
} hypre_BoxMap;
/*--------------------------------------------------------------------------
* Accessor macros: hypre_BoxMap
*--------------------------------------------------------------------------*/
#define hypre_BoxMapMaxNEntries(map) ((map) -> max_nentries)
#define hypre_BoxMapGlobalIMin(map) ((map) -> global_imin)
#define hypre_BoxMapGlobalIMax(map) ((map) -> global_imax)
#define hypre_BoxMapNEntries(map) ((map) -> nentries)
#define hypre_BoxMapEntries(map) ((map) -> entries)
#define hypre_BoxMapTable(map) ((map) -> table)
#define hypre_BoxMapBoxProcTable(map) ((map) -> boxproc_table)
#define hypre_BoxMapBoxProcOffset(map) ((map) -> boxproc_offset)
#define hypre_BoxMapIndexes(map) ((map) -> indexes)
#define hypre_BoxMapSize(map) ((map) -> size)
#define hypre_BoxMapLastIndex(map) ((map) -> last_index)
#define hypre_BoxMapNumGhost(map) ((map) -> num_ghost)
#define hypre_BoxMapIndexesD(map, d) hypre_BoxMapIndexes(map)[d]
#define hypre_BoxMapSizeD(map, d) hypre_BoxMapSize(map)[d]
#define hypre_BoxMapLastIndexD(map, d) hypre_BoxMapLastIndex(map)[d]
#define hypre_BoxMapTableEntry(map, i, j, k) \
hypre_BoxMapTable(map)[((k*hypre_BoxMapSizeD(map, 1) + j)*\
hypre_BoxMapSizeD(map, 0) + i)]
#define hypre_BoxMapBoxProcTableEntry(map, box, proc) \
hypre_BoxMapBoxProcTable(map)[ box + \
hypre_BoxMapBoxProcOffset(map)[proc] ]
/*--------------------------------------------------------------------------
* Accessor macros: hypre_BoxMapEntry
*--------------------------------------------------------------------------*/
#define hypre_BoxMapEntryIMin(entry) ((entry) -> imin)
#define hypre_BoxMapEntryIMax(entry) ((entry) -> imax)
#define hypre_BoxMapEntryInfo(entry) ((entry) -> info)
#define hypre_BoxMapEntryNumGhost(entry) ((entry) -> num_ghost)
#define hypre_BoxMapEntryNext(entry) ((entry) -> next)
#endif
/******************************************************************************
*
* Header info for the hypre_SStructGrid structures
*
*****************************************************************************/
#ifndef hypre_SSTRUCT_GRID_HEADER
#define hypre_SSTRUCT_GRID_HEADER
/*--------------------------------------------------------------------------
* hypre_SStructGrid:
*
* NOTE: Since variables may be replicated across different processes,
* a separate set of "interface grids" is retained so that data can be
* migrated onto and off of the internal (non-replicated) grids.
*--------------------------------------------------------------------------*/
typedef enum hypre_SStructVariable_enum hypre_SStructVariable;
typedef struct
{
HYPRE_SStructVariable type;
int rank; /* local rank */
int proc;
} hypre_SStructUVar;
typedef struct
{
int part;
hypre_Index cell;
int nuvars;
hypre_SStructUVar *uvars;
} hypre_SStructUCVar;
typedef struct
{
MPI_Comm comm; /* TODO: use different comms */
int ndim;
int nvars; /* number of variables */
HYPRE_SStructVariable *vartypes; /* types of variables */
hypre_StructGrid *sgrids[8]; /* struct grids for each vartype */
hypre_BoxArray *iboxarrays[8]; /* interface boxes */
hypre_BoxArray *pneighbors;
int local_size; /* Number of variables locally */
int global_size; /* Total number of variables */
hypre_Index periodic; /* Indicates if pgrid is periodic */
/* GEC0902 additions for ghost expansion of boxes */
int ghlocal_size; /* Number of vars including ghosts */
int cell_sgrid_done; /* =1 implies cell grid already assembled */
} hypre_SStructPGrid;
typedef struct
{
hypre_Box box;
int part;
hypre_Index ilower; /* box ilower, but on the neighbor index-space */
hypre_Index coord; /* lives on local index-space */
hypre_Index dir; /* lives on local index-space */
} hypre_SStructNeighbor;
enum hypre_SStructMapInfoType
{
hypre_SSTRUCT_MAP_INFO_DEFAULT = 0,
hypre_SSTRUCT_MAP_INFO_NEIGHBOR = 1
};
typedef struct
{
int type;
int proc;
int offset;
int boxnum;
int ghoffset; /* GEC0902 ghost offset */
} hypre_SStructMapInfo;
typedef struct
{
int type;
int proc;
int offset; /* minimum offset for this box */
int boxnum;
int ghoffset; /* GEC0902 minimum offset ghost for this box */
int part; /* part the box lives on */
hypre_Index ilower; /* box ilower, but on the neighbor index-space */
hypre_Index coord; /* lives on local index-space */
hypre_Index dir; /* lives on local index-space */
hypre_Index stride; /* lives on local index-space */
hypre_Index ghstride; /* GEC1002 the ghost equivalent of strides */
} hypre_SStructNMapInfo;
typedef struct
{
hypre_CommInfo *comm_info;
int send_part;
int recv_part;
int send_var;
int recv_var;
} hypre_SStructCommInfo;
typedef struct hypre_SStructGrid_struct
{
MPI_Comm comm;
int ndim;
int nparts;
/* s-variable info */
hypre_SStructPGrid **pgrids;
/* neighbor info */
int *nneighbors;
hypre_SStructNeighbor **neighbors;
int **nvneighbors;
hypre_SStructNeighbor ***vneighbors;
hypre_SStructCommInfo **vnbor_comm_info; /* for updating shared data */
int vnbor_ncomms;
/* u-variables info: During construction, array entries are consecutive.
* After 'Assemble', entries are referenced via local cell rank. */
int nucvars;
hypre_SStructUCVar **ucvars;
/* info for mapping (part, index, var) --> rank */
hypre_BoxMap ***maps; /* map for each part, var */
hypre_SStructMapInfo ***info;
hypre_SStructNMapInfo ***ninfo;
int start_rank;
int local_size; /* Number of variables locally */
int global_size; /* Total number of variables */
int ref_count;
/* GEC0902 additions for ghost expansion of boxes */
int ghlocal_size; /* GEC0902 Number of vars including ghosts */
int ghstart_rank; /* GEC0902 start rank including ghosts */
} hypre_SStructGrid;
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructGrid
*--------------------------------------------------------------------------*/
#define hypre_SStructGridComm(grid) ((grid) -> comm)
#define hypre_SStructGridNDim(grid) ((grid) -> ndim)
#define hypre_SStructGridNParts(grid) ((grid) -> nparts)
#define hypre_SStructGridPGrids(grid) ((grid) -> pgrids)
#define hypre_SStructGridPGrid(grid, part) ((grid) -> pgrids[part])
#define hypre_SStructGridNNeighbors(grid) ((grid) -> nneighbors)
#define hypre_SStructGridNeighbors(grid) ((grid) -> neighbors)
#define hypre_SStructGridNVNeighbors(grid) ((grid) -> nvneighbors)
#define hypre_SStructGridVNeighbors(grid) ((grid) -> vneighbors)
#define hypre_SStructGridVNborCommInfo(grid) ((grid) -> vnbor_comm_info)
#define hypre_SStructGridVNborNComms(grid) ((grid) -> vnbor_ncomms)
#define hypre_SStructGridNUCVars(grid) ((grid) -> nucvars)
#define hypre_SStructGridUCVars(grid) ((grid) -> ucvars)
#define hypre_SStructGridUCVar(grid, i) ((grid) -> ucvars[i])
#define hypre_SStructGridMaps(grid) ((grid) -> maps)
#define hypre_SStructGridMap(grid, part, var) ((grid) -> maps[part][var])
#define hypre_SStructGridInfo(grid) ((grid) -> info)
#define hypre_SStructGridNInfo(grid) ((grid) -> ninfo)
#define hypre_SStructGridStartRank(grid) ((grid) -> start_rank)
#define hypre_SStructGridLocalSize(grid) ((grid) -> local_size)
#define hypre_SStructGridGlobalSize(grid) ((grid) -> global_size)
#define hypre_SStructGridRefCount(grid) ((grid) -> ref_count)
#define hypre_SStructGridGhlocalSize(grid) ((grid) -> ghlocal_size)
#define hypre_SStructGridGhstartRank(grid) ((grid) -> ghstart_rank)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructPGrid
*--------------------------------------------------------------------------*/
#define hypre_SStructPGridComm(pgrid) ((pgrid) -> comm)
#define hypre_SStructPGridNDim(pgrid) ((pgrid) -> ndim)
#define hypre_SStructPGridNVars(pgrid) ((pgrid) -> nvars)
#define hypre_SStructPGridVarTypes(pgrid) ((pgrid) -> vartypes)
#define hypre_SStructPGridVarType(pgrid, var) ((pgrid) -> vartypes[var])
#define hypre_SStructPGridCellSGridDone(pgrid) ((pgrid) -> cell_sgrid_done)
#define hypre_SStructPGridSGrids(pgrid) ((pgrid) -> sgrids)
#define hypre_SStructPGridSGrid(pgrid, var) \
((pgrid) -> sgrids[hypre_SStructPGridVarType(pgrid, var)])
#define hypre_SStructPGridCellSGrid(pgrid) \
((pgrid) -> sgrids[HYPRE_SSTRUCT_VARIABLE_CELL])
#define hypre_SStructPGridVTSGrid(pgrid, vartype) ((pgrid) -> sgrids[vartype])
#define hypre_SStructPGridIBoxArrays(pgrid) ((pgrid) -> iboxarrays)
#define hypre_SStructPGridIBoxArray(pgrid, var) \
((pgrid) -> iboxarrays[hypre_SStructPGridVarType(pgrid, var)])
#define hypre_SStructPGridCellIBoxArray(pgrid) \
((pgrid) -> iboxarrays[HYPRE_SSTRUCT_VARIABLE_CELL])
#define hypre_SStructPGridVTIBoxArray(pgrid, vartype) \
((pgrid) -> iboxarrays[vartype])
#define hypre_SStructPGridPNeighbors(pgrid) ((pgrid) -> pneighbors)
#define hypre_SStructPGridLocalSize(pgrid) ((pgrid) -> local_size)
#define hypre_SStructPGridGlobalSize(pgrid) ((pgrid) -> global_size)
#define hypre_SStructPGridPeriodic(pgrid) ((pgrid) -> periodic)
#define hypre_SStructPGridGhlocalSize(pgrid) ((pgrid) -> ghlocal_size)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructMapInfo
*--------------------------------------------------------------------------*/
#define hypre_SStructMapInfoType(info) ((info) -> type)
#define hypre_SStructMapInfoProc(info) ((info) -> proc)
#define hypre_SStructMapInfoOffset(info) ((info) -> offset)
#define hypre_SStructMapInfoBoxnum(info) ((info) -> boxnum)
#define hypre_SStructMapInfoGhoffset(info) ((info) -> ghoffset)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructNMapInfo
*--------------------------------------------------------------------------*/
/* Use the MapInfo macros to access the first five structure components */
#define hypre_SStructNMapInfoPart(info) ((info) -> part)
#define hypre_SStructNMapInfoILower(info) ((info) -> ilower)
#define hypre_SStructNMapInfoCoord(info) ((info) -> coord)
#define hypre_SStructNMapInfoDir(info) ((info) -> dir)
#define hypre_SStructNMapInfoStride(info) ((info) -> stride)
#define hypre_SStructNMapInfoGhstride(info) ((info) -> ghstride)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructNeighbor
*--------------------------------------------------------------------------*/
#define hypre_SStructNeighborBox(neighbor) &((neighbor) -> box)
#define hypre_SStructNeighborPart(neighbor) ((neighbor) -> part)
#define hypre_SStructNeighborILower(neighbor) ((neighbor) -> ilower)
#define hypre_SStructNeighborCoord(neighbor) ((neighbor) -> coord)
#define hypre_SStructNeighborDir(neighbor) ((neighbor) -> dir)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructCommInfo
*--------------------------------------------------------------------------*/
#define hypre_SStructCommInfoCommInfo(cinfo) ((cinfo) -> comm_info)
#define hypre_SStructCommInfoSendPart(cinfo) ((cinfo) -> send_part)
#define hypre_SStructCommInfoRecvPart(cinfo) ((cinfo) -> recv_part)
#define hypre_SStructCommInfoSendVar(cinfo) ((cinfo) -> send_var)
#define hypre_SStructCommInfoRecvVar(cinfo) ((cinfo) -> recv_var)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructUCVar
*--------------------------------------------------------------------------*/
#define hypre_SStructUCVarPart(uc) ((uc) -> part)
#define hypre_SStructUCVarCell(uc) ((uc) -> cell)
#define hypre_SStructUCVarNUVars(uc) ((uc) -> nuvars)
#define hypre_SStructUCVarUVars(uc) ((uc) -> uvars)
#define hypre_SStructUCVarType(uc, i) ((uc) -> uvars[i].type)
#define hypre_SStructUCVarRank(uc, i) ((uc) -> uvars[i].rank)
#define hypre_SStructUCVarProc(uc, i) ((uc) -> uvars[i].proc)
#endif
/******************************************************************************
*
* Header info for hypre_SStructStencil data structures
*
*****************************************************************************/
#ifndef hypre_SSTRUCT_STENCIL_HEADER
#define hypre_SSTRUCT_STENCIL_HEADER
/*--------------------------------------------------------------------------
* hypre_SStructStencil
*--------------------------------------------------------------------------*/
typedef struct hypre_SStructStencil_struct
{
hypre_StructStencil *sstencil;
int *vars;
int ref_count;
} hypre_SStructStencil;
/*--------------------------------------------------------------------------
* Accessor functions for the hypre_SStructStencil structure
*--------------------------------------------------------------------------*/
#define hypre_SStructStencilSStencil(stencil) ((stencil) -> sstencil)
#define hypre_SStructStencilVars(stencil) ((stencil) -> vars)
#define hypre_SStructStencilVar(stencil, i) ((stencil) -> vars[i])
#define hypre_SStructStencilRefCount(stencil) ((stencil) -> ref_count)
#define hypre_SStructStencilShape(stencil) \
hypre_StructStencilShape( hypre_SStructStencilSStencil(stencil) )
#define hypre_SStructStencilSize(stencil) \
hypre_StructStencilSize( hypre_SStructStencilSStencil(stencil) )
#define hypre_SStructStencilMaxOffset(stencil) \
hypre_StructStencilMaxOffset( hypre_SStructStencilSStencil(stencil) )
#define hypre_SStructStencilNDim(stencil) \
hypre_StructStencilDim( hypre_SStructStencilSStencil(stencil) )
#define hypre_SStructStencilEntry(stencil, i) \
hypre_StructStencilElement( hypre_SStructStencilSStencil(stencil), i )
#endif
/******************************************************************************
*
* 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_boxnum; /* local box number */
int to_proc;
int rank;
} hypre_SStructUEntry;
typedef struct
{
int part;
hypre_Index index;
int var;
int boxnum; /* 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_SStructUVEntryBoxnum(Uv) ((Uv) -> boxnum)
#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_SStructUVEntryToBoxnum(Uv, i) ((Uv) -> Uentries[i].to_boxnum)
#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_SStructUEntryToBoxnum(U) ((U) -> to_boxnum)
#define hypre_SStructUEntryToProc(U) ((U) -> to_proc)
#define hypre_SStructUEntryRank(U) ((U) -> rank)
#endif
/******************************************************************************
*
* Header info for the hypre_SStructMatrix structures
*
*****************************************************************************/
#ifndef hypre_SSTRUCT_MATRIX_HEADER
#define hypre_SSTRUCT_MATRIX_HEADER
/*--------------------------------------------------------------------------
* hypre_SStructMatrix:
*--------------------------------------------------------------------------*/
typedef struct
{
MPI_Comm comm;
hypre_SStructPGrid *pgrid;
hypre_SStructStencil **stencils; /* nvar array of stencils */
int nvars;
int **smaps;
hypre_StructStencil ***sstencils; /* nvar x nvar array of sstencils */
hypre_StructMatrix ***smatrices; /* nvar x nvar array of smatrices */
int **symmetric; /* Stencil entries symmetric?
* (nvar x nvar array) */
/* temporary storage for SetValues routines */
int sentries_size;
int *sentries;
int accumulated; /* AddTo values accumulated? */
int complex; /* Matrix complex? */
int ref_count;
} hypre_SStructPMatrix;
typedef struct hypre_SStructMatrix_struct
{
MPI_Comm comm;
int ndim;
hypre_SStructGraph *graph;
int ***splits; /* S/U-matrix split for each stencil */
/* S-matrix info */
int nparts;
hypre_SStructPMatrix **pmatrices;
int ***symmetric; /* Stencil entries symmetric?
* (nparts x nvar x nvar array) */
/* U-matrix info */
HYPRE_IJMatrix ijmatrix;
hypre_ParCSRMatrix *parcsrmatrix;
/* temporary storage for SetValues routines */
int entries_size;
int *Sentries;
int *Uentries;
int *tmp_col_coords;
double *tmp_coeffs;
int ns_symmetric; /* Non-stencil entries symmetric? */
int complex; /* Matrix complex? */
int global_size; /* Total number of nonzero coeffs */
int ref_count;
/* GEC0902 adding an object type to the matrix */
int object_type;
} hypre_SStructMatrix;
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructMatrix
*--------------------------------------------------------------------------*/
#define hypre_SStructMatrixComm(mat) ((mat) -> comm)
#define hypre_SStructMatrixNDim(mat) ((mat) -> ndim)
#define hypre_SStructMatrixGraph(mat) ((mat) -> graph)
#define hypre_SStructMatrixSplits(mat) ((mat) -> splits)
#define hypre_SStructMatrixSplit(mat, p, v) ((mat) -> splits[p][v])
#define hypre_SStructMatrixNParts(mat) ((mat) -> nparts)
#define hypre_SStructMatrixPMatrices(mat) ((mat) -> pmatrices)
#define hypre_SStructMatrixPMatrix(mat, part) ((mat) -> pmatrices[part])
#define hypre_SStructMatrixSymmetric(mat) ((mat) -> symmetric)
#define hypre_SStructMatrixIJMatrix(mat) ((mat) -> ijmatrix)
#define hypre_SStructMatrixParCSRMatrix(mat) ((mat) -> parcsrmatrix)
#define hypre_SStructMatrixEntriesSize(mat) ((mat) -> entries_size)
#define hypre_SStructMatrixSEntries(mat) ((mat) -> Sentries)
#define hypre_SStructMatrixUEntries(mat) ((mat) -> Uentries)
#define hypre_SStructMatrixTmpColCoords(mat) ((mat) -> tmp_col_coords)
#define hypre_SStructMatrixTmpCoeffs(mat) ((mat) -> tmp_coeffs)
#define hypre_SStructMatrixNSSymmetric(mat) ((mat) -> ns_symmetric)
#define hypre_SStructMatrixComplex(mat) ((mat) -> complex)
#define hypre_SStructMatrixGlobalSize(mat) ((mat) -> global_size)
#define hypre_SStructMatrixRefCount(mat) ((mat) -> ref_count)
#define hypre_SStructMatrixObjectType(mat) ((mat) -> object_type)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructPMatrix
*--------------------------------------------------------------------------*/
#define hypre_SStructPMatrixComm(pmat) ((pmat) -> comm)
#define hypre_SStructPMatrixPGrid(pmat) ((pmat) -> pgrid)
#define hypre_SStructPMatrixStencils(pmat) ((pmat) -> stencils)
#define hypre_SStructPMatrixNVars(pmat) ((pmat) -> nvars)
#define hypre_SStructPMatrixStencil(pmat, var) ((pmat) -> stencils[var])
#define hypre_SStructPMatrixSMaps(pmat) ((pmat) -> smaps)
#define hypre_SStructPMatrixSMap(pmat, var) ((pmat) -> smaps[var])
#define hypre_SStructPMatrixSStencils(pmat) ((pmat) -> sstencils)
#define hypre_SStructPMatrixSStencil(pmat, vi, vj) \
((pmat) -> sstencils[vi][vj])
#define hypre_SStructPMatrixSMatrices(pmat) ((pmat) -> smatrices)
#define hypre_SStructPMatrixSMatrix(pmat, vi, vj) \
((pmat) -> smatrices[vi][vj])
#define hypre_SStructPMatrixSymmetric(pmat) ((pmat) -> symmetric)
#define hypre_SStructPMatrixSEntriesSize(pmat) ((pmat) -> sentries_size)
#define hypre_SStructPMatrixSEntries(pmat) ((pmat) -> sentries)
#define hypre_SStructPMatrixAccumulated(pmat) ((pmat) -> accumulated)
#define hypre_SStructPMatrixComplex(pmat) ((pmat) -> complex)
#define hypre_SStructPMatrixRefCount(pmat) ((pmat) -> ref_count)
#endif
/******************************************************************************
*
* Header info for the hypre_SStructVector structures
*
*****************************************************************************/
#ifndef hypre_SSTRUCT_VECTOR_HEADER
#define hypre_SSTRUCT_VECTOR_HEADER
/*--------------------------------------------------------------------------
* hypre_SStructVector:
*--------------------------------------------------------------------------*/
typedef struct
{
MPI_Comm comm;
hypre_SStructPGrid *pgrid;
int nvars;
hypre_StructVector **svectors; /* nvar array of svectors */
hypre_CommPkg **comm_pkgs; /* nvar array of comm pkgs */
int accumulated; /* AddTo values accumulated? */
int complex; /* Is the vector complex */
int ref_count;
int *dataindices; /* GEC1002 array for starting index of the
svector. pdataindices[varx] */
int datasize; /* Size of the pvector = sums size of svectors */
} hypre_SStructPVector;
typedef struct hypre_SStructVector_struct
{
MPI_Comm comm;
int ndim;
hypre_SStructGrid *grid;
int object_type;
/* s-vector info */
int nparts;
hypre_SStructPVector **pvectors;
hypre_CommPkg ***comm_pkgs; /* nvar array of comm pkgs */
/* u-vector info */
HYPRE_IJVector ijvector;
hypre_ParVector *parvector;
/* inter-part communication info */
int nbor_ncomms; /* num comm_pkgs with neighbor parts */
/* GEC10020902 pointer to big chunk of memory and auxiliary information */
double *data; /* GEC1002 pointer to chunk data */
int *dataindices; /* GEC1002 dataindices[partx] is the starting index
of vector data for the part=partx */
int datasize ; /* GEC1002 size of all data = ghlocalsize */
int complex; /* Is the vector complex */
int global_size; /* Total number coefficients */
int ref_count;
} hypre_SStructVector;
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructVector
*--------------------------------------------------------------------------*/
#define hypre_SStructVectorComm(vec) ((vec) -> comm)
#define hypre_SStructVectorNDim(vec) ((vec) -> ndim)
#define hypre_SStructVectorGrid(vec) ((vec) -> grid)
#define hypre_SStructVectorObjectType(vec) ((vec) -> object_type)
#define hypre_SStructVectorNParts(vec) ((vec) -> nparts)
#define hypre_SStructVectorPVectors(vec) ((vec) -> pvectors)
#define hypre_SStructVectorPVector(vec, part) ((vec) -> pvectors[part])
#define hypre_SStructVectorIJVector(vec) ((vec) -> ijvector)
#define hypre_SStructVectorParVector(vec) ((vec) -> parvector)
#define hypre_SStructVectorNborNComms(vec) ((vec) -> nbor_ncomms)
#define hypre_SStructVectorComplex(vec) ((vec) -> complex)
#define hypre_SStructVectorGlobalSize(vec) ((vec) -> global_size)
#define hypre_SStructVectorRefCount(vec) ((vec) -> ref_count)
#define hypre_SStructVectorData(vec) ((vec) -> data )
#define hypre_SStructVectorDataIndices(vec) ((vec) -> dataindices)
#define hypre_SStructVectorDataSize(vec) ((vec) -> datasize)
/*--------------------------------------------------------------------------
* Accessor macros: hypre_SStructPVector
*--------------------------------------------------------------------------*/
#define hypre_SStructPVectorComm(pvec) ((pvec) -> comm)
#define hypre_SStructPVectorPGrid(pvec) ((pvec) -> pgrid)
#define hypre_SStructPVectorNVars(pvec) ((pvec) -> nvars)
#define hypre_SStructPVectorSVectors(pvec) ((pvec) -> svectors)
#define hypre_SStructPVectorSVector(pvec, v) ((pvec) -> svectors[v])
#define hypre_SStructPVectorCommPkgs(pvec) ((pvec) -> comm_pkgs)
#define hypre_SStructPVectorCommPkg(pvec, v) ((pvec) -> comm_pkgs[v])
#define hypre_SStructPVectorAccumulated(pvec) ((pvec) -> accumulated)
#define hypre_SStructPVectorComplex(pvec) ((pvec) -> complex)
#define hypre_SStructPVectorRefCount(pvec) ((pvec) -> ref_count)
#define hypre_SStructPVectorDataIndices(pvec) ((pvec) -> dataindices )
#define hypre_SStructPVectorDataSize(pvec) ((pvec) -> datasize )
#endif
/* box_map.c */
int hypre_BoxMapEntrySetInfo ( hypre_BoxMapEntry *entry , void *info );
int hypre_BoxMapEntryGetInfo ( hypre_BoxMapEntry *entry , void **info_ptr );
int hypre_BoxMapEntryGetExtents ( hypre_BoxMapEntry *entry , hypre_Index imin , hypre_Index imax );
int hypre_BoxMapCreate ( int max_nentries , hypre_Index global_imin , hypre_Index global_imax , int nprocs , hypre_BoxMap **map_ptr );
int hypre_BoxMapIncSize ( hypre_BoxMap *map , int inc_nentries );
int hypre_BoxMapAddEntry ( hypre_BoxMap *map , hypre_Index imin , hypre_Index imax , void *info );
int hypre_BoxMapAssemble ( hypre_BoxMap *map , MPI_Comm comm );
int hypre_BoxMapDestroy ( hypre_BoxMap *map );
int hypre_BoxMapFindEntry ( hypre_BoxMap *map , hypre_Index index , hypre_BoxMapEntry **entry_ptr );
int hypre_BoxMapFindBoxProcEntry ( hypre_BoxMap *map , int box , int proc , hypre_BoxMapEntry **entry_ptr );
int hypre_BoxMapIntersect ( hypre_BoxMap *map , hypre_Index ilower , hypre_Index iupper , hypre_BoxMapEntry ***entries_ptr , int *nentries_ptr );
int hypre_BoxMapSetNumGhost ( hypre_BoxMap *map , int *num_ghost );
/* HYPRE_sstruct_graph.c */
int HYPRE_SStructGraphCreate ( MPI_Comm comm , HYPRE_SStructGrid grid , HYPRE_SStructGraph *graph_ptr );
int HYPRE_SStructGraphDestroy ( HYPRE_SStructGraph graph );
int HYPRE_SStructGraphSetStencil ( HYPRE_SStructGraph graph , int part , int var , HYPRE_SStructStencil stencil );
int HYPRE_SStructGraphAddEntries ( HYPRE_SStructGraph graph , int part , int *index , int var , int to_part , int *to_index , int to_var );
int HYPRE_SStructGraphAssemble ( HYPRE_SStructGraph graph );
int HYPRE_SStructGraphSetObjectType ( HYPRE_SStructGraph graph , int type );
/* HYPRE_sstruct_grid.c */
int HYPRE_SStructGridCreate ( MPI_Comm comm , int ndim , int nparts , HYPRE_SStructGrid *grid_ptr );
int HYPRE_SStructGridDestroy ( HYPRE_SStructGrid grid );
int HYPRE_SStructGridSetExtents ( HYPRE_SStructGrid grid , int part , int *ilower , int *iupper );
int HYPRE_SStructGridSetVariables ( HYPRE_SStructGrid grid , int part , int nvars , HYPRE_SStructVariable *vartypes );
int HYPRE_SStructGridSetVariable ( HYPRE_SStructGrid grid , int part , int var , int nvars , HYPRE_SStructVariable vartype );
int HYPRE_SStructGridAddVariables ( HYPRE_SStructGrid grid , int part , int *index , int nvars , HYPRE_SStructVariable *vartypes );
int HYPRE_SStructGridAddVariable ( HYPRE_SStructGrid grid , int part , int *index , int var , HYPRE_SStructVariable vartype );
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 );
int HYPRE_SStructGridSetNeighborBox ( HYPRE_SStructGrid grid , int part , int *ilower , int *iupper , int nbor_part , int *nbor_ilower , int *nbor_iupper , int *index_map );
int HYPRE_SStructGridAddUnstructuredPart ( HYPRE_SStructGrid grid , int ilower , int iupper );
int HYPRE_SStructGridAssemble ( HYPRE_SStructGrid grid );
int HYPRE_SStructGridSetPeriodic ( HYPRE_SStructGrid grid , int part , int *periodic );
int HYPRE_SStructGridSetNumGhost ( HYPRE_SStructGrid grid , int *num_ghost );
/* HYPRE_sstruct_matrix.c */
int HYPRE_SStructMatrixCreate ( MPI_Comm comm , HYPRE_SStructGraph graph , HYPRE_SStructMatrix *matrix_ptr );
int HYPRE_SStructMatrixDestroy ( HYPRE_SStructMatrix matrix );
int HYPRE_SStructMatrixInitialize ( HYPRE_SStructMatrix matrix );
int HYPRE_SStructMatrixSetValues ( HYPRE_SStructMatrix matrix , int part , int *index , int var , int nentries , int *entries , double *values );
int HYPRE_SStructMatrixSetBoxValues ( HYPRE_SStructMatrix matrix , int part , int *ilower , int *iupper , int var , int nentries , int *entries , double *values );
int HYPRE_SStructMatrixGetValues ( HYPRE_SStructMatrix matrix , int part , int *index , int var , int nentries , int *entries , double *values );
int HYPRE_SStructMatrixGetBoxValues ( HYPRE_SStructMatrix matrix , int part , int *ilower , int *iupper , int var , int nentries , int *entries , double *values );
int HYPRE_SStructMatrixAddToValues ( HYPRE_SStructMatrix matrix , int part , int *index , int var , int nentries , int *entries , double *values );
int HYPRE_SStructMatrixAddToBoxValues ( HYPRE_SStructMatrix matrix , int part , int *ilower , int *iupper , int var , int nentries , int *entries , double *values );
int HYPRE_SStructMatrixAssemble ( HYPRE_SStructMatrix matrix );
int HYPRE_SStructMatrixSetSymmetric ( HYPRE_SStructMatrix matrix , int part , int var , int to_var , int symmetric );
int HYPRE_SStructMatrixSetNSSymmetric ( HYPRE_SStructMatrix matrix , int symmetric );
int HYPRE_SStructMatrixSetObjectType ( HYPRE_SStructMatrix matrix , int type );
int HYPRE_SStructMatrixGetObject ( HYPRE_SStructMatrix matrix , void **object );
int HYPRE_SStructMatrixGetObject2 ( HYPRE_SStructMatrix matrix , void **object );
int HYPRE_SStructMatrixPrint ( const char *filename , HYPRE_SStructMatrix matrix , int all );
int HYPRE_SStructMatrixMatvec ( double alpha , HYPRE_SStructMatrix A , HYPRE_SStructVector x , double beta , HYPRE_SStructVector y );
/* HYPRE_sstruct_stencil.c */
int HYPRE_SStructStencilCreate ( int ndim , int size , HYPRE_SStructStencil *stencil_ptr );
int HYPRE_SStructStencilDestroy ( HYPRE_SStructStencil stencil );
int HYPRE_SStructStencilSetEntry ( HYPRE_SStructStencil stencil , int entry , int *offset , int var );
/* HYPRE_sstruct_vector.c */
int HYPRE_SStructVectorCreate ( MPI_Comm comm , HYPRE_SStructGrid grid , HYPRE_SStructVector *vector_ptr );
int HYPRE_SStructVectorDestroy ( HYPRE_SStructVector vector );
int HYPRE_SStructVectorInitialize ( HYPRE_SStructVector vector );
int HYPRE_SStructVectorSetValues ( HYPRE_SStructVector vector , int part , int *index , int var , double *value );
int HYPRE_SStructVectorSetBoxValues ( HYPRE_SStructVector vector , int part , int *ilower , int *iupper , int var , double *values );
int HYPRE_SStructVectorAddToValues ( HYPRE_SStructVector vector , int part , int *index , int var , double *value );
int HYPRE_SStructVectorAddToBoxValues ( HYPRE_SStructVector vector , int part , int *ilower , int *iupper , int var , double *values );
int HYPRE_SStructVectorAssemble ( HYPRE_SStructVector vector );
int HYPRE_SStructVectorGather ( HYPRE_SStructVector vector );
int HYPRE_SStructVectorGetValues ( HYPRE_SStructVector vector , int part , int *index , int var , double *value );
int HYPRE_SStructVectorGetBoxValues ( HYPRE_SStructVector vector , int part , int *ilower , int *iupper , int var , double *values );
int HYPRE_SStructVectorSetConstantValues ( HYPRE_SStructVector vector , double value );
int HYPRE_SStructVectorSetObjectType ( HYPRE_SStructVector vector , int type );
int HYPRE_SStructVectorGetObject ( HYPRE_SStructVector vector , void **object );
int HYPRE_SStructVectorPrint ( const char *filename , HYPRE_SStructVector vector , int all );
int HYPRE_SStructVectorCopy ( HYPRE_SStructVector x , HYPRE_SStructVector y );
int HYPRE_SStructVectorScale ( double alpha , HYPRE_SStructVector y );
int HYPRE_SStructInnerProd ( HYPRE_SStructVector x , HYPRE_SStructVector y , double *result );
int HYPRE_SStructAxpy ( double alpha , HYPRE_SStructVector x , HYPRE_SStructVector y );
/* sstruct_axpy.c */
int hypre_SStructPAxpy ( double alpha , hypre_SStructPVector *px , hypre_SStructPVector *py );
int hypre_SStructAxpy ( double alpha , hypre_SStructVector *x , hypre_SStructVector *y );
/* sstruct_copy.c */
int hypre_SStructPCopy ( hypre_SStructPVector *px , hypre_SStructPVector *py );
int hypre_SStructPartialPCopy ( hypre_SStructPVector *px , hypre_SStructPVector *py , hypre_BoxArrayArray **array_boxes );
int hypre_SStructCopy ( hypre_SStructVector *x , hypre_SStructVector *y );
/* sstruct_graph.c */
int hypre_SStructGraphRef ( hypre_SStructGraph *graph , hypre_SStructGraph **graph_ref );
int hypre_SStructGraphFindUVEntry ( hypre_SStructGraph *graph , int part , hypre_Index index , int var , hypre_SStructUVEntry **Uventry_ptr );
int hypre_SStructGraphFindBoxEndpt ( hypre_SStructGraph *graph , int part , int var , int proc , int endpt , int boxi );
int hypre_SStructGraphFindSGridEndpts ( hypre_SStructGraph *graph , int part , int var , int proc , int endpt , int *endpts );
/* sstruct_grid.c */
int hypre_SStructVariableGetOffset ( HYPRE_SStructVariable vartype , int ndim , hypre_Index varoffset );
int hypre_SStructPGridCreate ( MPI_Comm comm , int ndim , hypre_SStructPGrid **pgrid_ptr );
int hypre_SStructPGridDestroy ( hypre_SStructPGrid *pgrid );
int hypre_SStructPGridSetExtents ( hypre_SStructPGrid *pgrid , hypre_Index ilower , hypre_Index iupper );
int hypre_SStructPGridSetCellSGrid ( hypre_SStructPGrid *pgrid , hypre_StructGrid *cell_sgrid );
int hypre_SStructPGridSetVariables ( hypre_SStructPGrid *pgrid , int nvars , HYPRE_SStructVariable *vartypes );
int hypre_SStructPGridSetVariable ( hypre_SStructPGrid *pgrid , int var , int nvars , HYPRE_SStructVariable vartype );
int hypre_SStructPGridSetPNeighbor ( hypre_SStructPGrid *pgrid , hypre_Box *pneighbor_box );
int hypre_SStructPGridAssemble ( hypre_SStructPGrid *pgrid );
int hypre_SStructGridRef ( hypre_SStructGrid *grid , hypre_SStructGrid **grid_ref );
int hypre_SStructGridAssembleMaps ( hypre_SStructGrid *grid );
int hypre_SStructGridAssembleNborMaps ( hypre_SStructGrid *grid );
int hypre_SStructGridCreateCommInfo ( hypre_SStructGrid *grid );
int hypre_SStructGridFindMapEntry ( hypre_SStructGrid *grid , int part , hypre_Index index , int var , hypre_BoxMapEntry **entry_ptr );
int hypre_SStructGridBoxProcFindMapEntry ( hypre_SStructGrid *grid , int part , int var , int box , int proc , hypre_BoxMapEntry **entry_ptr );
int hypre_SStructMapEntryGetCSRstrides ( hypre_BoxMapEntry *entry , hypre_Index strides );
int hypre_SStructMapEntryGetGhstrides ( hypre_BoxMapEntry *entry , hypre_Index strides );
int hypre_SStructMapEntryGetGlobalCSRank ( hypre_BoxMapEntry *entry , hypre_Index index , int *rank_ptr );
int hypre_SStructMapEntryGetGlobalGhrank ( hypre_BoxMapEntry *entry , hypre_Index index , int *rank_ptr );
int hypre_SStructMapEntryGetProcess ( hypre_BoxMapEntry *entry , int *proc_ptr );
int hypre_SStructMapEntryGetBoxnum ( hypre_BoxMapEntry *entry , int *boxnum_ptr );
int hypre_SStructBoxToNborBox ( hypre_Box *box , hypre_Index index , hypre_Index nbor_index , hypre_Index coord , hypre_Index dir );
int hypre_SStructNborBoxToBox ( hypre_Box *nbor_box , hypre_Index index , hypre_Index nbor_index , hypre_Index coord , hypre_Index dir );
int hypre_SStructVarToNborVar ( hypre_SStructGrid *grid , int part , int var , int *coord , int *nbor_var_ptr );
int hypre_SStructGridSetNumGhost ( hypre_SStructGrid *grid , int *num_ghost );
int hypre_SStructMapEntryGetGlobalRank ( hypre_BoxMapEntry *entry , hypre_Index index , int *rank_ptr , int type );
int hypre_SStructMapEntryGetStrides ( hypre_BoxMapEntry *entry , hypre_Index strides , int type );
int hypre_SStructBoxNumMap ( hypre_SStructGrid *grid , int part , int boxnum , int **num_varboxes_ptr , int ***map_ptr );
int hypre_SStructCellGridBoxNumMap ( hypre_SStructGrid *grid , int part , int ***num_varboxes_ptr , int ****map_ptr );
/* sstruct_innerprod.c */
int hypre_SStructPInnerProd ( hypre_SStructPVector *px , hypre_SStructPVector *py , double *presult_ptr );
int hypre_SStructInnerProd ( hypre_SStructVector *x , hypre_SStructVector *y , double *result_ptr );
/* sstruct_matrix.c */
int hypre_SStructPMatrixRef ( hypre_SStructPMatrix *matrix , hypre_SStructPMatrix **matrix_ref );
int hypre_SStructPMatrixCreate ( MPI_Comm comm , hypre_SStructPGrid *pgrid , hypre_SStructStencil **stencils , hypre_SStructPMatrix **pmatrix_ptr );
int hypre_SStructPMatrixDestroy ( hypre_SStructPMatrix *pmatrix );
int hypre_SStructPMatrixInitialize ( hypre_SStructPMatrix *pmatrix );
int hypre_SStructPMatrixSetValues ( hypre_SStructPMatrix *pmatrix , hypre_Index index , int var , int nentries , int *entries , double *values , int action );
int hypre_SStructPMatrixSetBoxValues ( hypre_SStructPMatrix *pmatrix , hypre_Index ilower , hypre_Index iupper , int var , int nentries , int *entries , double *values , int action );
int hypre_SStructPMatrixAccumulate ( hypre_SStructPMatrix *pmatrix );
int hypre_SStructPMatrixAssemble ( hypre_SStructPMatrix *pmatrix );
int hypre_SStructPMatrixSetSymmetric ( hypre_SStructPMatrix *pmatrix , int var , int to_var , int symmetric );
int hypre_SStructPMatrixPrint ( const char *filename , hypre_SStructPMatrix *pmatrix , int all );
int hypre_SStructUMatrixInitialize ( hypre_SStructMatrix *matrix );
int hypre_SStructUMatrixSetValues ( hypre_SStructMatrix *matrix , int part , hypre_Index index , int var , int nentries , int *entries , double *values , int action );
int hypre_SStructUMatrixSetBoxValues ( hypre_SStructMatrix *matrix , int part , hypre_Index ilower , hypre_Index iupper , int var , int nentries , int *entries , double *values , int action );
int hypre_SStructUMatrixAssemble ( hypre_SStructMatrix *matrix );
int hypre_SStructMatrixRef ( hypre_SStructMatrix *matrix , hypre_SStructMatrix **matrix_ref );
int hypre_SStructMatrixSplitEntries ( hypre_SStructMatrix *matrix , int part , int var , int nentries , int *entries , int *nSentries_ptr , int **Sentries_ptr , int *nUentries_ptr , int **Uentries_ptr );
/* sstruct_matvec.c */
int hypre_SStructPMatvecCreate ( void **pmatvec_vdata_ptr );
int hypre_SStructPMatvecSetup ( void *pmatvec_vdata , hypre_SStructPMatrix *pA , hypre_SStructPVector *px );
int hypre_SStructPMatvecCompute ( void *pmatvec_vdata , double alpha , hypre_SStructPMatrix *pA , hypre_SStructPVector *px , double beta , hypre_SStructPVector *py );
int hypre_SStructPMatvecDestroy ( void *pmatvec_vdata );
int hypre_SStructPMatvec ( double alpha , hypre_SStructPMatrix *pA , hypre_SStructPVector *px , double beta , hypre_SStructPVector *py );
int hypre_SStructMatvecCreate ( void **matvec_vdata_ptr );
int hypre_SStructMatvecSetup ( void *matvec_vdata , hypre_SStructMatrix *A , hypre_SStructVector *x );
int hypre_SStructMatvecCompute ( void *matvec_vdata , double alpha , hypre_SStructMatrix *A , hypre_SStructVector *x , double beta , hypre_SStructVector *y );
int hypre_SStructMatvecDestroy ( void *matvec_vdata );
int hypre_SStructMatvec ( double alpha , hypre_SStructMatrix *A , hypre_SStructVector *x , double beta , hypre_SStructVector *y );
/* sstruct_overlap_innerprod.c */
int hypre_SStructPOverlapInnerProd ( hypre_SStructPVector *px , hypre_SStructPVector *py , double *presult_ptr );
int hypre_SStructOverlapInnerProd ( hypre_SStructVector *x , hypre_SStructVector *y , double *result_ptr );
/* sstruct_scale.c */
int hypre_SStructPScale ( double alpha , hypre_SStructPVector *py );
int hypre_SStructScale ( double alpha , hypre_SStructVector *y );
/* sstruct_stencil.c */
int hypre_SStructStencilRef ( hypre_SStructStencil *stencil , hypre_SStructStencil **stencil_ref );
/* sstruct_vector.c */
int hypre_SStructPVectorRef ( hypre_SStructPVector *vector , hypre_SStructPVector **vector_ref );
int hypre_SStructPVectorCreate ( MPI_Comm comm , hypre_SStructPGrid *pgrid , hypre_SStructPVector **pvector_ptr );
int hypre_SStructPVectorDestroy ( hypre_SStructPVector *pvector );
int hypre_SStructPVectorInitialize ( hypre_SStructPVector *pvector );
int hypre_SStructPVectorSetValues ( hypre_SStructPVector *pvector , hypre_Index index , int var , double *value , int action );
int hypre_SStructPVectorSetBoxValues ( hypre_SStructPVector *pvector , hypre_Index ilower , hypre_Index iupper , int var , double *values , int action );
int hypre_SStructPVectorAccumulate ( hypre_SStructPVector *pvector );
int hypre_SStructPVectorAssemble ( hypre_SStructPVector *pvector );
int hypre_SStructPVectorGather ( hypre_SStructPVector *pvector );
int hypre_SStructPVectorGetValues ( hypre_SStructPVector *pvector , hypre_Index index , int var , double *value );
int hypre_SStructPVectorGetBoxValues ( hypre_SStructPVector *pvector , hypre_Index ilower , hypre_Index iupper , int var , double *values );
int hypre_SStructPVectorSetConstantValues ( hypre_SStructPVector *pvector , double value );
int hypre_SStructPVectorPrint ( const char *filename , hypre_SStructPVector *pvector , int all );
int hypre_SStructVectorRef ( hypre_SStructVector *vector , hypre_SStructVector **vector_ref );
int hypre_SStructVectorSetConstantValues ( hypre_SStructVector *vector , double value );
int hypre_SStructVectorConvert ( hypre_SStructVector *vector , hypre_ParVector **parvector_ptr );
int hypre_SStructVectorParConvert ( hypre_SStructVector *vector , hypre_ParVector **parvector_ptr );
int hypre_SStructVectorRestore ( hypre_SStructVector *vector , hypre_ParVector *parvector );
int hypre_SStructVectorParRestore ( hypre_SStructVector *vector , hypre_ParVector *parvector );
int hypre_SStructPVectorInitializeShell ( hypre_SStructPVector *pvector );
int hypre_SStructVectorInitializeShell ( hypre_SStructVector *vector );
int hypre_SStructVectorClearGhostValues ( hypre_SStructVector *vector );
#ifdef __cplusplus
}
#endif
#endif
|