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 petscsnes.h
 28: #ifdef MPI_BUILD_PROFILING
 29: #ifdef PETSC_HAVE_FORTRAN_CAPS
 30: #define snes_ksp_setconvergencetestew_ PSNES_KSP_SETCONVERGENCETESTEW
 31: #elif defined(FORTRANDOUBLEUNDERSCORE)
 32: #define snes_ksp_setconvergencetestew_ psnes_ksp_setconvergencetestew__
 33: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 34: #define snes_ksp_setconvergencetestew_ psnes_ksp_setconvergencetestew
 35: #else
 36: #define snes_ksp_setconvergencetestew_ psnes_ksp_setconvergencetestew_
 37: #endif
 38: #else
 39: #ifdef PETSC_HAVE_FORTRAN_CAPS
 40: #define snes_ksp_setconvergencetestew_ SNES_KSP_SETCONVERGENCETESTEW
 41: #elif defined(FORTRANDOUBLEUNDERSCORE)
 42: #define snes_ksp_setconvergencetestew_ snes_ksp_setconvergencetestew__
 43: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 44: #define snes_ksp_setconvergencetestew_ snes_ksp_setconvergencetestew
 45: #endif
 46: #endif

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



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