コード例 #1
0
ファイル: mathematica.c プロジェクト: pombredanne/petsc
/*@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);
}
コード例 #2
0
ファイル: runtime.c プロジェクト: firedrakeproject/petsc
static int cleanupConnection(MLENV env, MLINK link)
{
  PetscFunctionBegin;
  MLClose(link);
  MLDeinitialize(env);
  PetscFunctionReturn(0);
}