| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | /* | ||
| 2 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
| 3 | SLEPc - Scalable Library for Eigenvalue Problem Computations | ||
| 4 | Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain | ||
| 5 | |||
| 6 | This file is part of SLEPc. | ||
| 7 | SLEPc is distributed under a 2-clause BSD license (see LICENSE). | ||
| 8 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
| 9 | */ | ||
| 10 | |||
| 11 | #include <slepc/private/slepcimpl.h> /*I "slepcsys.h" I*/ | ||
| 12 | |||
| 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. | ||
| 17 | |||
| 18 | Collective on PETSC_COMM_WORLD | ||
| 19 | |||
| 20 | Level: beginner | ||
| 21 | |||
| 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. | ||
| 28 | |||
| 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 | } | ||
| 38 | |||
| 39 |