xref: /phasta/phSolver/common/symwdg.c (revision 595995161822a203c8467e0e4a253d7bd7d6df32)

#include <FCMangle.h>
#define symwdg FortranCInterface_GLOBAL_(symwdg,SYMWDG)

typedef double DARR4[4];

int wdgIntPnt(int,DARR4**,double **);

symwdg(int *n1, double pt[][4], double wt[], int *err)
{
  double *lwt;
  DARR4 *lpt;
  int i,j;
  *err = wdgIntPnt(*n1, &lpt, &lwt);
  for(i=0; i < *n1; i++) {
    wt[i] = lwt[i];
    for(j=0; j <4; j++)
      pt[i][j]=lpt[i][j];
  }
}

/*$Id$*/
#include <stdio.h>

/* constants for 3D - 2pt rule */

#define Qp21 -0.577350269189626
#define Qp22  0.577350269189626
#define Pp23  0.166666666666667
#define Pp24  0.666666666666667
#define Ww32  0.666666666666667 /* Pw22 * Qw2 */

/* constants for 3D - rule 3 (18 point) */

#define Qp31  -0.774596669241483
#define Qp32   0.000000000000000
#define Qp33   0.774596669241483
#define Qw31   0.555555555555556
#define Qw32   0.888888888888889
#define Qw33   0.555555555555556

#define Pp34   0.816847572980459
#define Pp35   0.091576213509771
#define Pp36   0.108103018168070
#define Pp37   0.445948490915965
#define Pw33   0.219903487310644
#define Pw34   0.446763179356022

#define Ww3331 0.122168604061469  /* Pw33 * Qw31 */
#define Ww3332 0.195469766498350  /* Pw33 * Qw32 */
#define Ww3333 0.122168604061469  /* Pw33 * Qw33 */
#define Ww3431 0.248201766308901  /* Pw34 * Qw31 */
#define Ww3432 0.397122826094242  /* Pw34 * Qw32 */
#define Ww3433 0.248201766308901  /* Pw34 * Qw33 */

/* constants for 3D rule 4 (48 point) */

#define Qp41 -0.861136311594053
#define Qp42 -0.339981043584856
#define Qp43  0.339981043584856
#define Qp44  0.861136311594053
#define Qw41  0.347854845137454
#define Qw42  0.652145154862544
#define Qw43  0.652145154862544
#define Qw44  0.347854845137544

#define Pp41  0.873821971016996
#define Pp42  0.063089014491502
#define Pp43  0.501426509658179
#define Pp44  0.249286745170910
#define Pp45  0.636502499121399
#define Pp46  0.310352451033785
#define Pp47  0.053145049844816
#define Pw41  0.101689812740414      /* S in symtri.c times 2 */
#define Pw42  0.233572551452758      /* T in symtri.c times 2 */
#define Pw43  0.165702151236748      /* U in symtri.c times 2 */

/* the weights should go */
/*(Pw41,Pw41,Pw41,Pw42,Pw42,Pw42,Pw43,Pw43,Pw43,Pw43,Pw43,Pw43)*Qw41 */
/*                   >>                                   *Qw42,Qw43,Qw44 */

#define Ww4141 0.0353732940628734 /* Pw41 * Qw41 */
#define Ww4142 0.0663165186775404 /* Pw41 * Qw42 */
#define Ww4143 0.0663165186775404 /* Pw41 * Qw43 */
#define Ww4144 0.0353732940628734 /* Pw41 * Qw44 */
#define Ww4241 0.0812493437139591 /* Pw42 * Qw41 */
#define Ww4242 0.152323207738798  /* Pw42 * Qw42 */
#define Ww4243 0.152323207738798  /* Pw42 * Qw43 */
#define Ww4244 0.0812493437139591 /* Pw42 * Qw44 */
#define Ww4341 0.057640296157402  /* Pw43 * Qw41 */
#define Ww4342 0.108061855079346  /* Pw43 * Qw42 */
#define Ww4343 0.108061855079346  /* Pw43 * Qw43 */
#define Ww4344 0.057640296157402  /* Pw43 * Qw44 */

/* typedef double DARR4[4] ; */

/* Rule 1*/

static double  rstw1[][4] = {
  { 0.333333333333, 0.333333333333, 0.0, 0.0 }
};

static double twt1[] = { 4.0000000 };



/* Rule 2 */

static double rstw6[][4] = {
  {Pp23,Pp23,Qp21,0.0},
  {Pp24,Pp23,Qp21,0.0},
  {Pp23,Pp24,Qp21,0.0},
  {Pp23,Pp23,Qp22,0.0},
  {Pp24,Pp23,Qp22,0.0},
  {Pp23,Pp24,Qp22,0.0}
};

static double twt6[] = {Ww32,Ww32,Ww32,Ww32,Ww32,Ww32};

/* Rule 3 */

static double rstw18[][4] = {
  {Pp34,Pp35,Qp31,0.0},
  {Pp35,Pp34,Qp31,0.0},
  {Pp35,Pp35,Qp31,0.0},
  {Pp36,Pp37,Qp31,0.0},
  {Pp37,Pp36,Qp31,0.0},
  {Pp37,Pp37,Qp31,0.0},
  {Pp34,Pp35,Qp32,0.0},
  {Pp35,Pp34,Qp32,0.0},
  {Pp35,Pp35,Qp32,0.0},
  {Pp36,Pp37,Qp32,0.0},
  {Pp37,Pp36,Qp32,0.0},
  {Pp37,Pp37,Qp32,0.0},
  {Pp34,Pp35,Qp33,0.0},
  {Pp35,Pp34,Qp33,0.0},
  {Pp35,Pp35,Qp33,0.0},
  {Pp36,Pp37,Qp33,0.0},
  {Pp37,Pp36,Qp33,0.0},
  {Pp37,Pp37,Qp33,0.0}
};

static double twt18[] =
{ Ww3331, Ww3331, Ww3331, Ww3431, Ww3431, Ww3431, Ww3332, Ww3332, Ww3332,
  Ww3432, Ww3432, Ww3432, Ww3333, Ww3333, Ww3333, Ww3433, Ww3433, Ww3433};

/* Rule 4 */

static double rstw48[][4] = {
  {Pp41,Pp42,Qp41,0.0},
  {Pp42,Pp41,Qp41,0.0},
  {Pp42,Pp42,Qp41,0.0},
  {Pp43,Pp44,Qp41,0.0},
  {Pp44,Pp43,Qp41,0.0},
  {Pp44,Pp44,Qp41,0.0},
  {Pp45,Pp46,Qp41,0.0},
  {Pp46,Pp45,Qp41,0.0},
  {Pp45,Pp47,Qp41,0.0},
  {Pp46,Pp47,Qp41,0.0},
  {Pp47,Pp46,Qp41,0.0},
  {Pp47,Pp45,Qp41,0.0},
  {Pp41,Pp42,Qp42,0.0},
  {Pp42,Pp41,Qp42,0.0},
  {Pp42,Pp42,Qp42,0.0},
  {Pp43,Pp44,Qp42,0.0},
  {Pp44,Pp43,Qp42,0.0},
  {Pp44,Pp44,Qp42,0.0},
  {Pp45,Pp46,Qp42,0.0},
  {Pp46,Pp45,Qp42,0.0},
  {Pp45,Pp47,Qp42,0.0},
  {Pp46,Pp47,Qp42,0.0},
  {Pp47,Pp46,Qp42,0.0},
  {Pp47,Pp45,Qp42,0.0},
  {Pp41,Pp42,Qp43,0.0},
  {Pp42,Pp41,Qp43,0.0},
  {Pp42,Pp42,Qp43,0.0},
  {Pp43,Pp44,Qp43,0.0},
  {Pp44,Pp43,Qp43,0.0},
  {Pp44,Pp44,Qp43,0.0},
  {Pp45,Pp46,Qp43,0.0},
  {Pp46,Pp45,Qp43,0.0},
  {Pp45,Pp47,Qp43,0.0},
  {Pp46,Pp47,Qp43,0.0},
  {Pp47,Pp46,Qp43,0.0},
  {Pp47,Pp45,Qp43,0.0},
  {Pp41,Pp42,Qp44,0.0},
  {Pp42,Pp41,Qp44,0.0},
  {Pp42,Pp42,Qp44,0.0},
  {Pp43,Pp44,Qp44,0.0},
  {Pp44,Pp43,Qp44,0.0},
  {Pp44,Pp44,Qp44,0.0},
  {Pp45,Pp46,Qp44,0.0},
  {Pp46,Pp45,Qp44,0.0},
  {Pp45,Pp47,Qp44,0.0},
  {Pp46,Pp47,Qp44,0.0},
  {Pp47,Pp46,Qp44,0.0},
  {Pp47,Pp45,Qp44,0.0}
};

static double twt48[] =
{ Ww4141, Ww4141, Ww4141, Ww4241, Ww4241, Ww4241, Ww4341, Ww4341, Ww4341,
  Ww4341, Ww4341, Ww4341, Ww4142, Ww4142, Ww4142, Ww4242, Ww4242, Ww4242,
  Ww4342, Ww4342, Ww4342, Ww4342, Ww4342, Ww4342, Ww4143, Ww4143, Ww4143,
  Ww4243, Ww4243, Ww4243, Ww4343, Ww4343, Ww4343, Ww4343, Ww4343, Ww4343,
  Ww4144, Ww4144, Ww4144, Ww4244, Ww4244, Ww4244, Ww4344, Ww4344, Ww4344,
  Ww4344, Ww4344, Ww4344};

#ifdef __cplusplus
extern "C" {
#endif

int wdgIntPnt(int nint, DARR4 **bcord, double **wt)
{
  int retval = 1;

  if( nint == 6 ){*bcord = rstw6 ; *wt = twt6; }
  else if( nint == 1  ){*bcord = rstw1 ; *wt = twt1; }
  else if( nint == 18 ){*bcord = rstw18 ; *wt = twt18; }
  else if( nint == 48 ){*bcord = rstw48 ; *wt = twt48; }
  else
  {
    fprintf(stderr,"\n%d integration points unsupported symwdg.c; give {6,18,48}\n",nint);
    retval = 0;
  }
  return retval ;
}

#ifdef __cplusplus
}
#endif