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