Exemplo n.º 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);
}
Exemplo n.º 2
0
static int cleanupConnection(MLENV env, MLINK link)
{
  PetscFunctionBegin;
  MLClose(link);
  MLDeinitialize(env);
  PetscFunctionReturn(0);
}