File: GaussQuadratureLin.cpp

package info (click to toggle)
gmsh 4.8.4%2Bds2-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 87,812 kB
  • sloc: cpp: 378,014; ansic: 99,669; yacc: 7,216; python: 6,680; java: 3,486; lisp: 659; lex: 621; perl: 571; makefile: 470; sh: 440; xml: 415; javascript: 113; pascal: 35; modula3: 32
file content (32 lines) | stat: -rw-r--r-- 914 bytes parent folder | download
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
// Gmsh - Copyright (C) 1997-2021 C. Geuzaine, J.-F. Remacle
//
// See the LICENSE.txt file for license information. Please report all
// issues on https://gitlab.onelab.info/gmsh/gmsh/issues.

#include <vector>
#include "GaussIntegration.h"
#include "GaussLegendre1D.h"

static std::vector<IntPt *> GQL(40, nullptr);

IntPt *getGQLPts(int order)
{
  // Number of Gauss Point: (order + 1) / 2 *ROUNDED UP*
  int n = (order + 1) / (double)2 + 0.5;
  if(static_cast<int>(GQL.size()) < order + 1) GQL.resize(order + 1, nullptr);
  if(!GQL[order]) {
    double *pt, *wt;
    gmshGaussLegendre1D(n, &pt, &wt);
    IntPt *intpt = new IntPt[n];
    for(int i = 0; i < n; i++) {
      intpt[i].pt[0] = pt[i];
      intpt[i].pt[1] = 0.0;
      intpt[i].pt[2] = 0.0;
      intpt[i].weight = wt[i];
    }
    GQL[order] = intpt;
  }
  return GQL[order];
}

int getNGQLPts(int order) { return (order + 1) / (double)2 + 0.5; }