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