Commits

Lisandro Dalcin  committed 4876d5d

Rename internal Fortran routine

  • Participants
  • Parent commits 4a4db86

Comments (0)

Files changed (2)

File src/petigapoint.c

 }
 
 EXTERN_C_BEGIN
-extern void IGA_GetGeomMap     (PetscInt nen,PetscInt nsd,
-                                const PetscReal N[],const PetscReal C[],PetscReal X[]);
-extern void IGA_GetGradGeomMap (PetscInt nen,PetscInt nsd,PetscInt dim,
-                                const PetscReal N[],const PetscReal C[],PetscReal F[]);
-extern void IGA_GetGradGeomMapI(PetscInt nen,PetscInt nsd,PetscInt dim,
-                                const PetscReal N[],const PetscReal C[],PetscReal G[]);
+extern void IGA_GetGeomMap        (PetscInt nen,PetscInt nsd,
+                                   const PetscReal N[],const PetscReal C[],PetscReal X[]);
+extern void IGA_GetGradGeomMap    (PetscInt nen,PetscInt nsd,PetscInt dim,
+                                   const PetscReal N[],const PetscReal C[],PetscReal F[]);
+extern void IGA_GetInvGradGeomMap (PetscInt nen,PetscInt nsd,PetscInt dim,
+                                   const PetscReal N[],const PetscReal C[],PetscReal G[]);
 EXTERN_C_END
 
 #undef  __FUNCT__
       (void)PetscMemcpy(G,p->gradX[1],dim*nsd*sizeof(PetscReal));
     } else {
       const PetscReal *X = p->parent->geometryX;
-      IGA_GetGradGeomMapI(p->nen,nsd,dim,p->basis[1],X,G);
+      IGA_GetInvGradGeomMap(p->nen,nsd,dim,p->basis[1],X,G);
     }
     for (a=0; a<dim; a++)
       for (i=0; i<nsd; i++)

File src/petigaval.F90

   F = matmul(N,transpose(C))
 end subroutine IGA_GetGradGeomMap
 
-subroutine IGA_GetGradGeomMapI(nen,nsd,dim,N,C,G) &
-  bind(C, name="IGA_GetGradGeomMapI")
+subroutine IGA_GetInvGradGeomMap(nen,nsd,dim,N,C,G) &
+  bind(C, name="IGA_GetInvGradGeomMap")
   use PetIGA
   implicit none
   integer(kind=IGA_INTEGER_KIND), intent(in),value :: nen,nsd,dim
   G = matmul(invM,transpose(F))
 contains
 include 'petigainv.f90.in'
-end subroutine IGA_GetGradGeomMapI
+end subroutine IGA_GetInvGradGeomMap
 
 
 subroutine IGA_GetValue(nen,dof,N,U,V) &