p8est_lnodes.h

/*
  This file is part of p4est.
  p4est is a C library to manage a collection (a forest) of multiple
  connected adaptive quadtrees or octrees in parallel.
 
  Copyright (C) 2010 The University of Texas System
  Additional copyright (C) 2011 individual authors
  Written by Carsten Burstedde, Lucas C. Wilcox, and Tobin Isaac
 
  p4est 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; either version 2 of the License, or
  (at your option) any later version.
 
  p4est 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
  GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public License
  along with p4est; if not, write to the Free Software Foundation, Inc.,
  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
 
#ifndef P8EST_LNODES_H
#define P8EST_LNODES_H
 
#include <p8est_ghost.h>
 
SC_EXTERN_C_BEGIN;
 
typedef int16_t     p8est_lnodes_code_t;
 
typedef struct p8est_lnodes
{
  sc_MPI_Comm         mpicomm;
  p4est_locidx_t      num_local_nodes;
  p4est_locidx_t      owned_count;
  p4est_gloidx_t      global_offset;
  p4est_gloidx_t     *nonlocal_nodes;
  sc_array_t         *sharers;
  p4est_locidx_t     *global_owned_count;
 
  int                 degree, vnodes;
  p4est_locidx_t      num_local_elements;
  p8est_lnodes_code_t *face_code;
  p4est_locidx_t     *element_nodes;
}
p8est_lnodes_t;
 
typedef struct p8est_lnodes_rank
{
  int                 rank;
  sc_array_t          shared_nodes;
  p4est_locidx_t      shared_mine_offset, shared_mine_count;
  p4est_locidx_t      owned_offset, owned_count;
}
p8est_lnodes_rank_t;
 
/*@unused@*/
static inline int
p8est_lnodes_decode (p8est_lnodes_code_t face_code, int hanging_face[6],
                     int hanging_edge[12])
{
  P4EST_ASSERT (face_code >= 0);
 
  if (face_code) {
    int                 i, j;
    int16_t             c = face_code & 0x0007;
    int16_t             cwork;
    int                 f;
    int                 e;
    int16_t             work = face_code >> 3;
 
    memset (hanging_face, -1, 6 * sizeof (int));
    memset (hanging_edge, -1, 12 * sizeof (int));
 
    cwork = c;
    for (i = 0; i < 3; ++i) {
      if (work & 0x0001) {
        f = p8est_corner_faces[c][i];
        hanging_face[f] = p8est_corner_face_corners[c][f];
        for (j = 0; j < 4; j++) {
          e = p8est_face_edges[f][j];
          hanging_edge[e] = 4;
        }
      }
      work >>= 1;
    }
    for (i = 0; i < 3; ++i) {
      if (work & 0x0001) {
        e = p8est_corner_edges[c][i];
        hanging_edge[e] = (hanging_edge[e] == -1) ? 0 : 2;
        hanging_edge[e] += (int) (cwork & 0x0001);
      }
      cwork >>= 1;
      work >>= 1;
    }
    return 1;
  }
  else {
    return 0;
  }
}
 
p8est_lnodes_t     *p8est_lnodes_new (p8est_t * p8est,
                                      p8est_ghost_t * ghost_layer,
                                      int degree);
 
void                p8est_lnodes_destroy (p8est_lnodes_t * lnodes);
 
void                p8est_partition_lnodes (p8est_t * p8est,
                                            p8est_ghost_t * ghost, int degree,
                                            int partition_for_coarsening);
 
void                p8est_partition_lnodes_detailed (p8est_t * p4est,
                                                     p8est_ghost_t * ghost,
                                                     int nodes_per_volume,
                                                     int nodes_per_face,
                                                     int nodes_per_edge,
                                                     int nodes_per_corner,
                                                     int
                                                     partition_for_coarsening);
 
void                p8est_ghost_support_lnodes (p8est_t * p8est,
                                                p8est_lnodes_t * lnodes,
                                                p8est_ghost_t * ghost);
 
void                p8est_ghost_expand_by_lnodes (p8est_t * p4est,
                                                  p8est_lnodes_t * lnodes,
                                                  p8est_ghost_t * ghost);
 
typedef struct p8est_lnodes_buffer
{
  sc_array_t         *requests; /* sc_MPI_Request */
  sc_array_t         *send_buffers;
  sc_array_t         *recv_buffers;
}
p8est_lnodes_buffer_t;
 
p8est_lnodes_buffer_t *p8est_lnodes_share_owned_begin (sc_array_t * node_data,
                                                       p8est_lnodes_t *
                                                       lnodes);
 
void                p8est_lnodes_share_owned_end (p8est_lnodes_buffer_t *
                                                  buffer);
 
void                p8est_lnodes_share_owned (sc_array_t * node_data,
                                              p8est_lnodes_t * lnodes);
 
p8est_lnodes_buffer_t *p8est_lnodes_share_all_begin (sc_array_t * node_data,
                                                     p8est_lnodes_t * lnodes);
 
void                p8est_lnodes_share_all_end (p8est_lnodes_buffer_t *
                                                buffer);
 
p8est_lnodes_buffer_t *p8est_lnodes_share_all (sc_array_t * node_data,
                                               p8est_lnodes_t * lnodes);
 
void                p8est_lnodes_buffer_destroy (p8est_lnodes_buffer_t *
                                                 buffer);
 
/*@unused@*/
static inline p8est_lnodes_rank_t *
p8est_lnodes_rank_array_index_int (sc_array_t * array, int it)
{
  P4EST_ASSERT (array->elem_size == sizeof (p8est_lnodes_rank_t));
  P4EST_ASSERT (it >= 0 && (size_t) it < array->elem_count);
 
  return (p8est_lnodes_rank_t *)
    (array->array + sizeof (p8est_lnodes_rank_t) * (size_t) it);
}
 
/*@unused@*/
static inline p8est_lnodes_rank_t *
p8est_lnodes_rank_array_index (sc_array_t * array, size_t it)
{
  P4EST_ASSERT (array->elem_size == sizeof (p8est_lnodes_rank_t));
  P4EST_ASSERT (it < array->elem_count);
 
  return (p8est_lnodes_rank_t *)
    (array->array + sizeof (p8est_lnodes_rank_t) * it);
}
 
/*@unused@*/
static inline       p4est_gloidx_t
p8est_lnodes_global_index (p8est_lnodes_t * lnodes, p4est_locidx_t lidx)
{
  p4est_locidx_t      owned = lnodes->owned_count;
  P4EST_ASSERT (lidx >= 0 && lidx < lnodes->num_local_nodes);
 
  return (lidx < owned) ? lnodes->global_offset + lidx :
    lnodes->nonlocal_nodes[lidx - owned];
}
 
SC_EXTERN_C_END;
 
#endif /* !P8EST_LNODES */