Actual source code: zslepcutil.c
slepc-3.22.1 2024-10-28
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 <petsc/private/fortranimpl.h>
12: #include <slepcsys.h>
14: #if defined(PETSC_HAVE_FORTRAN_CAPS)
15: #define slepcgetversion_ SLEPCGETVERSION
16: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
17: #define slepcgetversion_ slepcgetversion
18: #endif
20: SLEPC_EXTERN void slepcgetversion_(char *version,PetscErrorCode *ierr,PETSC_FORTRAN_CHARLEN_T len1)
21: {
22: *ierr = SlepcGetVersion(version,len1);if (*ierr) return;
23: FIXRETURNCHAR(PETSC_TRUE,version,len1);
24: }