Exemple #1
0
/*@C
  PetscViewerMathematicaFinalizePackage - This function destroys everything in the Petsc interface to Mathematica. It is
  called from PetscFinalize().

  Level: developer

.keywords: Petsc, destroy, package, mathematica
.seealso: PetscFinalize()
@*/
PetscErrorCode  PetscViewerMathematicaFinalizePackage(void)
{
    PetscFunctionBegin;
    if (mathematicaEnv) MLDeinitialize((MLEnvironment) mathematicaEnv);
    PetscViewerMathematicaPackageInitialized = PETSC_TRUE;
    PetscFunctionReturn(0);
}
Exemple #2
0
static int cleanupConnection(MLENV env, MLINK link)
{
  PetscFunctionBegin;
  MLClose(link);
  MLDeinitialize(env);
  PetscFunctionReturn(0);
}