Commits

Lisandro Dalcin committed 7dc7023

Rename IGAPointGet3rdMixedPartials -> IGAPointGetDer3

Comments (0)

Files changed (4)

demo/PhaseFieldCrystal2D.c

   PetscScalar c1[2],c2[2][2],c3[2][2][2];
   IGAPointGetGrad(p,U,&c1[0]);
   IGAPointGetHess(p,U,&c2[0][0]);
-  IGAPointGet3rdMixedPartials(p,U,&c3[0][0][0]);
+  IGAPointGetDer3(p,U,&c3[0][0][0]);
   PetscScalar c_x   = c1[0],       c_y   = c1[1];
   PetscScalar c_xx  = c2[0][0],    c_yy  = c2[1][1];
   PetscScalar c_xxx = c3[0][0][0], c_yyy = c3[1][1][1];
   PetscScalar c1[2],c2[2][2],c3[2][2][2];
   IGAPointGetGrad(p,U,&c1[0]);
   IGAPointGetHess(p,U,&c2[0][0]);
-  IGAPointGet3rdMixedPartials(p,U,&c3[0][0][0]);
+  IGAPointGetDer3(p,U,&c3[0][0][0]);
   PetscScalar c_x   = c1[0],       c_y   = c1[1];
   PetscScalar c_xx  = c2[0][0],    c_yy  = c2[1][1];
   PetscScalar c_xxx = c3[0][0][0], c_yyy = c3[1][1][1];
 PETSC_EXTERN PetscErrorCode IGAPointGetGrad (IGAPoint p,const PetscScalar U[],PetscScalar u[]);
 PETSC_EXTERN PetscErrorCode IGAPointGetHess (IGAPoint p,const PetscScalar U[],PetscScalar u[]);
 PETSC_EXTERN PetscErrorCode IGAPointGetDel2 (IGAPoint p,const PetscScalar U[],PetscScalar u[]);
-PETSC_EXTERN PetscErrorCode IGAPointGet3rdMixedPartials(IGAPoint p,const PetscScalar U[],PetscScalar u[]);
+PETSC_EXTERN PetscErrorCode IGAPointGetDer3(IGAPoint p,const PetscScalar U[],PetscScalar u[]);
 
 PETSC_EXTERN PetscErrorCode IGAPointGetWorkVec(IGAPoint point,PetscScalar *V[]);
 PETSC_EXTERN PetscErrorCode IGAPointGetWorkMat(IGAPoint point,PetscScalar *M[]);

src/petigaint.f90

   end do
 end subroutine IGA_GetDel2
 
-subroutine IGA_Get3rdMixed(nen,dof,dim,N,U,V) &
-  bind(C, name="IGA_Get3rdMixed")
+subroutine IGA_GetDer3(nen,dof,dim,N,U,V) &
+     bind(C, name="IGA_GetDer3")
   use PetIGA
   implicit none
   integer(kind=IGA_INT   ), intent(in),value :: nen,dof,dim
         V(:,i) = V(:,i) + N(:,a) * U(i,a)
      end do
   end do
-end subroutine IGA_Get3rdMixed
+end subroutine IGA_GetDer3
 
 !subroutine IGA_GetDerivative(nen,dof,dim,der,N,U,V) &
 !  bind(C, name="IGA_GetDerivative")

src/petigapoint.c

                          const PetscScalar U[],PetscScalar u[]);
 extern void IGA_GetDel2 (PetscInt nen,PetscInt dof,PetscInt dim,const PetscReal N[],
                          const PetscScalar U[],PetscScalar u[]);
-extern void IGA_Get3rdMixed (PetscInt nen,PetscInt dof,PetscInt dim,const PetscReal N[],
-			     const PetscScalar U[],PetscScalar u[]);
+extern void IGA_GetDer3 (PetscInt nen,PetscInt dof,PetscInt dim,const PetscReal N[],
+                         const PetscScalar U[],PetscScalar u[]);
 EXTERN_C_END
 
 #undef  __FUNCT__
 }
 
 #undef  __FUNCT__
-#define __FUNCT__ "IGAPointGet3rdMixedPartials"
-PetscErrorCode IGAPointGet3rdMixedPartials(IGAPoint p,const PetscScalar U[],PetscScalar u[])
+#define __FUNCT__ "IGAPointGetDer3"
+PetscErrorCode IGAPointGetDer3(IGAPoint p,const PetscScalar U[],PetscScalar u[])
 {
   PetscFunctionBegin;
   PetscValidPointer(p,1);
   PetscValidScalarPointer(U,2);
   PetscValidScalarPointer(u,3);
-  IGA_Get3rdMixed(p->nen,p->dof,p->dim,p->shape[3],U,u);
+  IGA_GetDer3(p->nen,p->dof,p->dim,p->shape[3],U,u);
   PetscFunctionReturn(0);
 }
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.