| /phasta/svLS/ |
| H A D | GE.f | 41 SUBROUTINE GE (N, A, B) argument
45 INTEGER, INTENT(IN) :: N local
46 REAL*8, INTENT(IN) :: A(N,N)
47 REAL*8, INTENT(INOUT) :: B(N)
53 IF (N .EQ. 2) THEN
60 ALLOCATE(C(N,N+1))
62 C(:N,:N) = A
63 C(:,N+1) = B
65 DO m=1,N-1
68 DO i=m+1,N
[all …]
|
| /phasta/shapeFunction/src/ |
| H A D | Lagrange.c | 7 void TetQuadLag(double *par, double *N,double dN[][3]);
9 int TetShapeAndDrvL(int p,double par[3],double N[],double dN[][3]) { in TetShapeAndDrvL() argument
16 TetQuadLag(par,N,dN); in TetShapeAndDrvL()
23 void TetQuadLag(double *par, double *N,double dN[][3]) { in TetQuadLag() argument
26 N[0] = (2.0*r-1.0)*r; in TetQuadLag()
27 N[1] = (2.0*s-1.0)*s; in TetQuadLag()
28 N[2] = (2.0*t-1.0)*t; in TetQuadLag()
29 N[3] = (1.0-2.0*r-2.0*s-2.0*t)*t8; in TetQuadLag()
30 N[4] = 4.0*r*s; in TetQuadLag()
31 N[5] = 4.0*s*t; in TetQuadLag()
[all …]
|
| H A D | TriShapeAndDrv.cc | 5 int TriShapeAndDrv(int p,double par[2],double N[],double dN[][2]){ in TriShapeAndDrv() argument
19 N[i] = L[i]; in TriShapeAndDrv()
34 N[3] = -2.0e0*L[0]*L[1]; in TriShapeAndDrv()
35 N[4] = -2.0e0*L[1]*L[2]; in TriShapeAndDrv()
36 N[5] = -2.0e0*L[0]*L[2]; in TriShapeAndDrv()
|
| H A D | uniformP.c | 8 int TetShapeAndDrv(int p,double par[3],double N[],double dN[][3]) { in TetShapeAndDrv() argument
22 N[i] = L[i]; in TetShapeAndDrv()
46 N[nshp] = blend*mode; in TetShapeAndDrv()
70 N[nshp] = blend*mode; in TetShapeAndDrv()
96 N[nshp] = blend*mode; in TetShapeAndDrv()
112 int TriShapeAndDrv(int p,double par[2],double N[],double dN[][2]){ in TriShapeAndDrv() argument
126 N[i] = L[i]; in TriShapeAndDrv()
141 N[3] = -2.0e0*L[0]*L[1]; in TriShapeAndDrv()
142 N[4] = -2.0e0*L[1]*L[2]; in TriShapeAndDrv()
143 N[5] = -2.0e0*L[0]*L[2]; in TriShapeAndDrv()
|
| /phasta/phSolver/common/ |
| H A D | shptet.c | 7 int TetShapeAndDrv(int p,double par[3],double N[],double dN[][3]);
11 void shptet(int *p, double par[], double N[], double dN[][3]) in shptet() argument
13 TetShapeAndDrv(*p,par,N,dN); in shptet()
|
| H A D | shp6w.c | 7 int WedgeShapeAndDrv(int p,double par[3],double N[],double dN[][3]);
9 void shp6w(int *p, double par[], double N[], double dN[][3]) in shp6w() argument
11 WedgeShapeAndDrv(*p,par,N,dN); in shp6w()
|
| H A D | shphex.c | 6 int HexShapeAndDrv(int p,double par[3],double N[],double dN[][3]);
9 void shphex(int *p, double par[], double N[], double dN[][3]) in shphex() argument
12 HexShapeAndDrv(*p,par,N,dN); in shphex()
|
| H A D | shppyr.c | 7 int PyrShapeAndDrv(int p,double par[3],double N[],double dN[][3]);
14 void shppyr(int *p, double par[3], double N[], double dN[][3]) in shppyr() argument
17 PyrShapeAndDrv(*p,par,N,dN); in shppyr()
|
| H A D | shptri.c | 6 int TriShapeAndDrv(int p,double par[3],double N[],double dN[][3]);
9 void shptri(int *p, double par[], double N[], double dN[][3]) in shptri() argument
11 TriShapeAndDrv(*p,par,N,dN); in shptri()
|
| H A D | newshape.cc | 420 int HexShapeAndDrv(int p,double par[3],double N[],double dN[][3]) in HexShapeAndDrv() argument
462 N[0]= 0.125* xim * etam * zetam ; in HexShapeAndDrv()
463 N[1]= 0.125* xip * etam * zetam ; in HexShapeAndDrv()
464 N[2]= 0.125* xip * etap * zetam ; in HexShapeAndDrv()
465 N[3]= 0.125* xim * etap * zetam ; in HexShapeAndDrv()
466 N[4]= 0.125* xim * etam * zetap ; in HexShapeAndDrv()
467 N[5]= 0.125* xip * etam * zetap ; in HexShapeAndDrv()
468 N[6]= 0.125* xip * etap * zetap ; in HexShapeAndDrv()
469 N[7]= 0.125* xim * etap * zetap ; in HexShapeAndDrv()
586 N[nshp]= EdgeBlend * entfn[nm]; in HexShapeAndDrv()
[all …]
|
| H A D | topo_shapedefs.h | 7 extern "C" int HexShapeAndDrv(int p, double par[3], double N[], double
9 extern "C" int WedgeShapeAndDrv(int p, double Inputpar[3], double N[], double
11 extern "C" int PyrShapeAndDrv (int p, double Inputpar[3], double N[], double
|
| H A D | symtri.c | 38 #define N 0.132394152788506 macro
76 static double wt7[] = {L,M,M,M,N,N,N};
|
| H A D | input.config | 435 …AMG Run Reduced Serial: 0 # <DEPRICATED> 0: no run, N: reduced serial if run serial; ou…
|
| /phasta/M2N/ |
| H A D | M2N_input.dat | 2 100 # time step of the restart files for partID and vtxID (mapping between M and N)
11 This Script is used to reduce different fields from M parts to N parts, using the mapping fields (p…
|