Home
last modified time | relevance | path

Searched refs:ip (Results 1 – 7 of 7) sorted by relevance

/phasta/shapeFunction/src/
H A DuniformP.c11 int NS,is,i,j,ip,nshp=0,(*fpdrv)[2]; in TetShapeAndDrv() local
43 for(ip=2; ip <= p; ip++) { in TetShapeAndDrv()
44 mode = E_modeShape(ip,Le); in TetShapeAndDrv()
45 E_modeShapeDrv(ip, Le, mdrv); in TetShapeAndDrv()
66 for(ip=3; ip <= p; ip++) { in TetShapeAndDrv()
67 NS = ip-2; in TetShapeAndDrv()
69 mode = F_modeShapeTri(ip,is,Lf); in TetShapeAndDrv()
71 F_modeShapeTriDrv(ip,is,Lf,mfdrv); in TetShapeAndDrv()
85 for(ip=4; ip <= p; ip++) { in TetShapeAndDrv()
86 NS = (ip-3)*(ip-2)/2 ; in TetShapeAndDrv()
[all …]
H A DEn.c17 double En(int ip, double r, double s) { in En() argument
23 if( ip==0 ) { in En()
26 } else if( ip==1 ) { in En()
29 } else if( ip==2 ) { in En()
34 } else if( ip==3 ) { in En()
39 } else if( ip==4 ) { in En()
46 } else if( ip==5 ) { in En()
53 } else if( ip==6 ) { in En()
61 } else if( ip==7 ) { in En()
71 } else if( ip==8 ) { in En()
[all …]
H A DEnDrv.c17 int EnDrv(int ip, double r, double s, double drv[2]) { in EnDrv() argument
22 if( ip==0 ) { in EnDrv()
26 } else if( ip==1 ) { in EnDrv()
30 } else if( ip==2 ) { in EnDrv()
34 } else if( ip==3 ) { in EnDrv()
41 } else if( ip==4 ) { in EnDrv()
51 } else if( ip==5 ) { in EnDrv()
62 } else if( ip==6 ) { in EnDrv()
76 } else if( ip==7 ) { in EnDrv()
93 } else if( ip==8 ) { in EnDrv()
[all …]
H A DshapeFuncInternals.h55 double En(int ip, double r, double s);
56 int EnDrv(int ip, double r, double s, double *drv);
/phasta/phSolver/common/
H A Dnewshape.cc346 for(int ip =3; ip <p+1; ip++){ /* for each p */ in quad_face() local
348 for(a1 = 2; a1 < ip-1; a1++){ /* a1,a2 = 2....p-2 */ in quad_face()
349 for(a2 = 2; a2 < ip-1; a2++){ /* a1+a2 = p */ in quad_face()
350 if( a1+a1 == ip ){ in quad_face()
395 for(int ip =6; ip< p+1; ip++){ in hex_regn() local
397 for(a1=2; a1 < ip-3; a1++){ in hex_regn()
398 for(a2=2; a2 < ip-3; a2++){ in hex_regn()
399 for(a3=2; a3 < ip-3; a3++){ in hex_regn()
400 if(a1+a2+a3 == ip){ in hex_regn()
/phasta/
H A DCMakeLists.txt58 set(CMAKE_Fortran_FLAGS "-O3 -ip ${CMAKE_Fortran_FLAGS}" )
/phasta/phSolver/AMG/
H A Dramg_smoother.f307 integer :: i,j,k,ip,jp,kp variable