Home
last modified time | relevance | path

Searched refs:L (Results 1 – 11 of 11) sorted by relevance

/phasta/shapeFunction/src/
H A DblendDrv.c21 int V_blendOnEntityDrv(int index, int etype, double *L, double mdrv[3]) { in V_blendOnEntityDrv() argument
47 int E_blendOnFaceDrv(int index[], int etype, double *L, double bdrv[2]) { in E_blendOnFaceDrv() argument
49 return F_edgeBlendTriDrv(index, L, bdrv); in E_blendOnFaceDrv()
54 int F_edgeBlendTriDrv(int index[2], double *L, double drv[]) { in F_edgeBlendTriDrv() argument
58 r = L[0] ; s = L[1] ; in F_edgeBlendTriDrv()
79 int E_blendOnRegionDrv(int index[], int etype, double *L, double bdrv[3]) { in E_blendOnRegionDrv() argument
81 return R_edgeBlendTetDrv(index, L, bdrv); in E_blendOnRegionDrv()
86 int F_blendOnRegionDrv(int index[], int etype, double *L, double drv[3]) { in F_blendOnRegionDrv() argument
95 int R_edgeBlendTetDrv(int *index, double *L, double drv[]) { in R_edgeBlendTetDrv() argument
96 double r=L[0],s=L[1],t=L[2]; in R_edgeBlendTetDrv()
[all …]
H A Dblend.c21 double V_blendOnEntity(int vid, int etype, double *L) { in V_blendOnEntity() argument
28 return V_blendIndexedOnEdge(vid,L); in V_blendOnEntity()
30 return V_blendIndexed(vid,L); in V_blendOnEntity()
35 double V_blendIndexed(int i, double *L) { in V_blendIndexed() argument
36 return L[i] ; in V_blendIndexed()
39 double V_blendIndexedOnEdge(int i, double *L) { in V_blendIndexedOnEdge() argument
41 return 0.5*(1.0-L[0]); in V_blendIndexedOnEdge()
43 return 0.5*(1.0+L[0]); in V_blendIndexedOnEdge()
46 double E_blendOnFace(int eindex[], int etype, double *L) { in E_blendOnFace() argument
53 return F_edgeBlendTri(eindex, L); in E_blendOnFace()
[all …]
H A DuniformP.c12 double L[4],Le[2],Lf[3],mode,blend,bdrv[3],mdrv[3],epdrv[3][2],mfdrv[2]; in TetShapeAndDrv() local
16 L[0]=par[0]; in TetShapeAndDrv()
17 L[1]=par[1]; in TetShapeAndDrv()
18 L[2]=par[2]; in TetShapeAndDrv()
19 L[3]=1.0e0-par[0]-par[1]-par[2]; in TetShapeAndDrv()
22 N[i] = L[i]; in TetShapeAndDrv()
38 Le[0]=L[TetEMAP[i][0]]; in TetShapeAndDrv()
39 Le[1]=L[TetEMAP[i][1]]; in TetShapeAndDrv()
40 blend = R_edgeBlendTet(TetEMAP[i],L); in TetShapeAndDrv()
41 R_edgeBlendTetDrv(TetEMAP[i],L,bdrv); in TetShapeAndDrv()
[all …]
H A DshapeFuncInternals.h24 double V_blendOnEntity(int vid, int etype, double *L);
25 double V_blendIndexed(int i, double *L);
26 double V_blendIndexedOnEdge(int i, double *L);
27 double E_blendOnFace(int eindex[], int etype, double *L);
28 double F_edgeBlendTri(int index[2], double *L);
29 double F_edgeBlendQuad(int *index, double *L);
30 double E_blendOnRegion(int eindex[], int etype, double *L);
31 double R_edgeBlendTet(int index[2], double *L);
32 double F_blendOnRegion(int index[], int etype, double *L);
34 int V_blendOnEntityDrv(int index, int etype, double *L, double mdrv[3]);
[all …]
H A DTriShapeAndDrv.cc7 double L[3]; in TriShapeAndDrv() local
11 L[0]=par[0]; in TriShapeAndDrv()
12 L[1]=par[1]; in TriShapeAndDrv()
13 L[2]=1.0e0-par[0]-par[1]; in TriShapeAndDrv()
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()
37 dN[3][0] = -2.0e0*L[1]; in TriShapeAndDrv()
38 dN[3][1] = -2.0e0*L[0]; in TriShapeAndDrv()
[all …]
H A DmodeShape.c21 double E_modeShape(int p, double *L) { in E_modeShape() argument
27 return En(p-2,L[0],L[1]); in E_modeShape()
30 double F_modeShapeTri(int p, int i, double *L) { in F_modeShapeTri() argument
54 return Fn(alpha, beta, L[0], L[1]); in F_modeShapeTri()
59 double F_modeShapeQuad(int p, int i, double *L) { in F_modeShapeQuad() argument
64 double R_modeShapeTet(int p, int i, double *L) { in R_modeShapeTet() argument
93 return Bn(alpha,beta,gamma,L[0],L[1],L[2]); in R_modeShapeTet()
98 double R_modeShapeHex(int p, int i, double *L) { in R_modeShapeHex() argument
H A DmodeShapeDrv.c21 int E_modeShapeDrv(int p, double *L, double drv[2]) { in E_modeShapeDrv() argument
25 return EnDrv(p-2,L[0],L[1],drv); in E_modeShapeDrv()
28 int F_modeShapeTriDrv(int p, int i, double *L, double mdrv[2]) { in F_modeShapeTriDrv() argument
53 return FnDrv(alpha,beta,L[0],L[1],mdrv); in F_modeShapeTriDrv()
58 int F_modeShapeQuadDrv(int p, int i, double *L, double mdrv[2]) { in F_modeShapeQuadDrv() argument
62 int R_modeShapeTetDrv(int p, int i, double *L, double mdrv[3]) { in R_modeShapeTetDrv() argument
89 return BnDrv(alpha,beta,gamma,L[0],L[1],L[2],mdrv); in R_modeShapeTetDrv()
94 int R_modeShapeHexDrv(int p, int i, double *L, double mdrv[3]) { in R_modeShapeHexDrv() argument
/phasta/svLS/
H A DCMakeLists.txt50 foreach(L IN LISTS CMAKE_Fortran_IMPLICIT_LINK_LIBRARIES)
51 set(implicit_libs "${implicit_libs} ${CMAKE_LINK_LIBRARY_FLAG}${L}")
H A Dsvls.pc.in9 Libs: -L${libdir} @implicit_libs@ -lsvLS
H A DCGRAD.f42 2 ls, rowPtr, colPtr, D, G, L, R) argument
52 REAL*8, INTENT(IN) :: D(dof,nnz), G(dof,nnz), L(nnz) local
94 2 L, P, SP)
/phasta/phSolver/common/
H A Dsymtri.c36 #define L 0.225000000000000 macro
76 static double wt7[] = {L,M,M,M,N,N,N};