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: }