1: /*
2: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: SLEPc - Scalable Library for Eigenvalue Problem Computations
4: Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
6: This file is part of SLEPc.
7: SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9: */
11: #include <slepc/private/slepcimpl.h>
12: #include <slepcmagma.h>
14: static PetscBool SlepcBeganMagma = PETSC_FALSE;
16: PetscErrorCode SlepcMagmaInit(void)
17: {
18: if (!SlepcBeganMagma) {
19: magma_init();
20: SlepcBeganMagma = PETSC_TRUE;
21: PetscRegisterFinalize(magma_finalize);
22: }
23: return 0;
24: }