Line data    Source code

       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           0 : PetscErrorCode SlepcInitializeFortran(void)
      32             : {
      33             : #if defined(PETSC_USE_FORTRAN_BINDINGS)
      34             :   PetscCall(PetscInitializeFortran());
      35             : #endif
      36           0 :   return PETSC_SUCCESS;
      37             : }
      38             :