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