Actual source code: snesutf.c

  1: /* snesut.c */
  2: /* Fortran interface file */

  4: /*
  5: * This file was generated automatically by bfort from the C source
  6: * file.  
  7:  */

  9: #ifdef PETSC_USE_POINTER_CONVERSION
 10: #if defined(__cplusplus)
 11: extern "C" {
 12: #endif 
 13: extern void *PetscToPointer(void *);
 14: extern int PetscFromPointer(void *);
 15: extern void PetscRmPointer(void *);
 16: #if defined(__cplusplus)
 17: }
 18: #endif 

 20: #else

 22: #define PetscToPointer(a) (*(long *)(a))
 23: #define PetscFromPointer(a) (long)(a)
 24: #define PetscRmPointer(a)
 25: #endif

 27: #include "petscfix.h"
 28:  #include petscsnes.h
 29: #ifdef MPI_BUILD_PROFILING
 30: #ifdef PETSC_HAVE_FORTRAN_CAPS
 31: #define snes_ksp_setconvergencetestew_ PSNES_KSP_SETCONVERGENCETESTEW
 32: #elif defined(FORTRANDOUBLEUNDERSCORE)
 33: #define snes_ksp_setconvergencetestew_ psnes_ksp_setconvergencetestew__
 34: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 35: #define snes_ksp_setconvergencetestew_ psnes_ksp_setconvergencetestew
 36: #else
 37: #define snes_ksp_setconvergencetestew_ psnes_ksp_setconvergencetestew_
 38: #endif
 39: #else
 40: #ifdef PETSC_HAVE_FORTRAN_CAPS
 41: #define snes_ksp_setconvergencetestew_ SNES_KSP_SETCONVERGENCETESTEW
 42: #elif defined(FORTRANDOUBLEUNDERSCORE)
 43: #define snes_ksp_setconvergencetestew_ snes_ksp_setconvergencetestew__
 44: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 45: #define snes_ksp_setconvergencetestew_ snes_ksp_setconvergencetestew
 46: #endif
 47: #endif

 49: #ifdef MPI_BUILD_PROFILING
 50: #ifdef PETSC_HAVE_FORTRAN_CAPS
 51: #define snes_ksp_setparametersew_ PSNES_KSP_SETPARAMETERSEW
 52: #elif defined(FORTRANDOUBLEUNDERSCORE)
 53: #define snes_ksp_setparametersew_ psnes_ksp_setparametersew__
 54: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 55: #define snes_ksp_setparametersew_ psnes_ksp_setparametersew
 56: #else
 57: #define snes_ksp_setparametersew_ psnes_ksp_setparametersew_
 58: #endif
 59: #else
 60: #ifdef PETSC_HAVE_FORTRAN_CAPS
 61: #define snes_ksp_setparametersew_ SNES_KSP_SETPARAMETERSEW
 62: #elif defined(FORTRANDOUBLEUNDERSCORE)
 63: #define snes_ksp_setparametersew_ snes_ksp_setparametersew__
 64: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 65: #define snes_ksp_setparametersew_ snes_ksp_setparametersew
 66: #endif
 67: #endif



 71: /* Definitions of Fortran Wrapper routines */
 72: #if defined(__cplusplus)
 73: extern "C" {
 74: #endif
 75: void PETSC_STDCALL snes_ksp_setconvergencetestew_(SNES snes, int *ierr ){
 76: *SNES_KSP_SetConvergenceTestEW(
 77:         (SNES)PetscToPointer( (snes) ));
 78: }
 79: void PETSC_STDCALL snes_ksp_setparametersew_(SNES snes,int *version,PetscReal *rtol_0,
 80:                              PetscReal *rtol_max,PetscReal *gamma2,PetscReal *alpha,
 81:                              PetscReal *alpha2,PetscReal *threshold, int *ierr ){
 82: *SNES_KSP_SetParametersEW(
 83:         (SNES)PetscToPointer( (snes) ),*version,*rtol_0,*rtol_max,*gamma2,*alpha,*alpha2,*threshold);
 84: }
 85: #if defined(__cplusplus)
 86: }
 87: #endif