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>
13: /*@C
14: SlepcInitializeFortran - Routine that should be called from C after
15: the call to SlepcInitialize() if one is using a C main program
16: that calls Fortran routines that in turn call SLEPc routines.
18: Collective on PETSC_COMM_WORLD
20: Level: beginner
22: Notes:
23: SlepcInitializeFortran() initializes some of the default SLEPc variables
24: for use in Fortran if a user's main program is written in C.
25: SlepcInitializeFortran() is NOT needed if a user's main
26: program is written in Fortran; in this case, just calling
27: SlepcInitialize() in the main (Fortran) program is sufficient.
29: .seealso: SlepcInitialize()
30: @*/
31: PetscErrorCode SlepcInitializeFortran(void)
32: {
33: #if defined(PETSC_USE_FORTRAN_BINDINGS)
34: PetscCall(PetscInitializeFortran());
35: #endif
36: return PETSC_SUCCESS;
37: }