Commits

Nathan Collier  committed bd05913

added event registration for collocation formsystem

  • Participants
  • Parent commits 490d13a

Comments (0)

Files changed (2)

File src/petigacol.c

 #include "petiga.h"
 
+extern PetscLogEvent IGA_ColFormSystem;
+
 #undef  __FUNCT__
 #define __FUNCT__ "IGAColPointCreate"
 PetscErrorCode IGAColPointCreate(IGAColPoint *_point)
   PetscValidHeaderSpecific(matA,MAT_CLASSID,2);
   PetscValidHeaderSpecific(vecB,VEC_CLASSID,3);
   IGACheckSetUp(iga,1);
-  
+
   ierr = MatZeroEntries(matA);CHKERRQ(ierr);
   ierr = VecZeroEntries(vecB);CHKERRQ(ierr);
+
+  ierr = PetscLogEventBegin(IGA_ColFormSystem,iga,matA,vecB,0);CHKERRQ(ierr);
   ierr = IGAGetColPoint(iga,&point);CHKERRQ(ierr);
   ierr = IGAColPointBegin(point);CHKERRQ(ierr);
   while (IGAColPointNext(point)) {
     ierr = IGAColPointAssembleVec(point,F,vecB);CHKERRQ(ierr);
   }
   ierr = IGAColPointEnd(point);CHKERRQ(ierr);
+  ierr = PetscLogEventEnd(IGA_ColFormSystem,iga,matA,vecB,0);CHKERRQ(ierr);
 
   ierr = MatAssemblyBegin(matA,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);
   ierr = MatAssemblyEnd  (matA,MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);

File src/petigareg.c

 PetscBool IGARegisterAllCalled = PETSC_FALSE;
 PetscLogEvent IGA_FormScalar = 0;
 PetscLogEvent IGA_FormSystem = 0;
+PetscLogEvent IGA_ColFormSystem = 0;
 PetscLogEvent IGA_FormFunction = 0;
 PetscLogEvent IGA_FormJacobian = 0;
 
   /* Register Events */
   ierr = PetscLogEventRegister("IGAFormScalar",IGA_CLASSID,&IGA_FormScalar);CHKERRQ(ierr);
   ierr = PetscLogEventRegister("IGAFormSystem",IGA_CLASSID,&IGA_FormSystem);CHKERRQ(ierr);
+  ierr = PetscLogEventRegister("IGAColFormSystem",IGA_CLASSID,&IGA_ColFormSystem);CHKERRQ(ierr);
   ierr = PetscLogEventRegister("IGAFormFunction",IGA_CLASSID,&IGA_FormFunction);CHKERRQ(ierr);
   ierr = PetscLogEventRegister("IGAFormJacobian",IGA_CLASSID,&IGA_FormJacobian);CHKERRQ(ierr);
   /* Register finalization routine */