1
<center><a href="qcgf.c">Actual source code: qcgf.c</a></center><br>
6
<meta name="generator" content="c2html 0.9.1">
7
<meta name="date" content="2002-05-31T16:59:46+00:00">
10
<body bgcolor="#FFFFFF">
11
<pre width="80"><a name="line1"> 1: </a><font color="#B22222">/* qcg.c */</font>
12
<a name="line2"> 2: </a><font color="#B22222">/* Fortran interface file */</font>
14
<a name="line4"> 4: </a><font color="#B22222">/*</font>
15
<a name="line5"> 5: </a><font color="#B22222">* This file was generated automatically by bfort from the C source</font>
16
<a name="line6"> 6: </a><font color="#B22222">* file. </font>
17
<a name="line7"> 7: </a><font color="#B22222"> */</font>
19
<a name="line9"> 9: </a><font color="#A020F0">#ifdef PETSC_USE_POINTER_CONVERSION</font>
20
<a name="line10"> 10: </a><font color="#A020F0">#if defined(__cplusplus)</font>
21
<a name="line11"> 11: </a>extern <font color="#666666">"C"</font> {
22
<a name="line12"> 12: </a><font color="#A020F0">#endif </font>
23
<a name="line13"> 13: </a><strong><font color="#4169E1">extern void *PetscToPointer(void *)</font></strong>;
24
<a name="line14"> 14: </a><strong><font color="#4169E1">extern int PetscFromPointer(void *)</font></strong>;
25
<a name="line15"> 15: </a><strong><font color="#4169E1">extern void PetscRmPointer(void *)</font></strong>;
26
<a name="line16"> 16: </a><font color="#A020F0">#if defined(__cplusplus)</font>
27
<a name="line17"> 17: </a>}
28
<a name="line18"> 18: </a><font color="#A020F0">#endif </font>
30
<a name="line20"> 20: </a><font color="#A020F0">#else</font>
32
<a name="line22"> 22: </a><strong><font color="#228B22">#define PetscToPointer(a) (*(long *)(a))</font></strong>
33
<a name="line23"> 23: </a><strong><font color="#228B22">#define PetscFromPointer(a) (long)(a)</font></strong>
34
<a name="line24"> 24: </a><strong><font color="#228B22">#define PetscRmPointer(a)</font></strong>
35
<a name="line25"> 25: </a><font color="#A020F0">#endif</font>
37
<a name="line27"> 27: </a><font color="#A020F0">#include </font><font color="#666666">"petscfix.h"</font><font color="#A020F0"></font>
38
<a name="line28"> 28: </a> #include <A href="../../../include/petscksp.h.html">petscksp.h</A>
39
<a name="line29"> 29: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
40
<a name="line30"> 30: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
41
<a name="line31"> 31: </a><strong><font color="#228B22">#define kspqcgsettrustregionradius_ PKSPQCGSETTRUSTREGIONRADIUS</font></strong>
42
<a name="line32"> 32: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
43
<a name="line33"> 33: </a><strong><font color="#228B22">#define kspqcgsettrustregionradius_ pkspqcgsettrustregionradius</font></strong>
44
<a name="line34"> 34: </a><font color="#A020F0">#else</font>
45
<a name="line35"> 35: </a><strong><font color="#228B22">#define kspqcgsettrustregionradius_ pkspqcgsettrustregionradius_</font></strong>
46
<a name="line36"> 36: </a><font color="#A020F0">#endif</font>
47
<a name="line37"> 37: </a><font color="#A020F0">#else</font>
48
<a name="line38"> 38: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
49
<a name="line39"> 39: </a><strong><font color="#228B22">#define kspqcgsettrustregionradius_ KSPQCGSETTRUSTREGIONRADIUS</font></strong>
50
<a name="line40"> 40: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
51
<a name="line41"> 41: </a><strong><font color="#228B22">#define kspqcgsettrustregionradius_ kspqcgsettrustregionradius</font></strong>
52
<a name="line42"> 42: </a><font color="#A020F0">#endif</font>
53
<a name="line43"> 43: </a><font color="#A020F0">#endif</font>
55
<a name="line45"> 45: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
56
<a name="line46"> 46: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
57
<a name="line47"> 47: </a><strong><font color="#228B22">#define kspqcggettrialstepnorm_ PKSPQCGGETTRIALSTEPNORM</font></strong>
58
<a name="line48"> 48: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
59
<a name="line49"> 49: </a><strong><font color="#228B22">#define kspqcggettrialstepnorm_ pkspqcggettrialstepnorm</font></strong>
60
<a name="line50"> 50: </a><font color="#A020F0">#else</font>
61
<a name="line51"> 51: </a><strong><font color="#228B22">#define kspqcggettrialstepnorm_ pkspqcggettrialstepnorm_</font></strong>
62
<a name="line52"> 52: </a><font color="#A020F0">#endif</font>
63
<a name="line53"> 53: </a><font color="#A020F0">#else</font>
64
<a name="line54"> 54: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
65
<a name="line55"> 55: </a><strong><font color="#228B22">#define kspqcggettrialstepnorm_ KSPQCGGETTRIALSTEPNORM</font></strong>
66
<a name="line56"> 56: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
67
<a name="line57"> 57: </a><strong><font color="#228B22">#define kspqcggettrialstepnorm_ kspqcggettrialstepnorm</font></strong>
68
<a name="line58"> 58: </a><font color="#A020F0">#endif</font>
69
<a name="line59"> 59: </a><font color="#A020F0">#endif</font>
71
<a name="line61"> 61: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
72
<a name="line62"> 62: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
73
<a name="line63"> 63: </a><strong><font color="#228B22">#define kspqcggetquadratic_ PKSPQCGGETQUADRATIC</font></strong>
74
<a name="line64"> 64: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
75
<a name="line65"> 65: </a><strong><font color="#228B22">#define kspqcggetquadratic_ pkspqcggetquadratic</font></strong>
76
<a name="line66"> 66: </a><font color="#A020F0">#else</font>
77
<a name="line67"> 67: </a><strong><font color="#228B22">#define kspqcggetquadratic_ pkspqcggetquadratic_</font></strong>
78
<a name="line68"> 68: </a><font color="#A020F0">#endif</font>
79
<a name="line69"> 69: </a><font color="#A020F0">#else</font>
80
<a name="line70"> 70: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
81
<a name="line71"> 71: </a><strong><font color="#228B22">#define kspqcggetquadratic_ KSPQCGGETQUADRATIC</font></strong>
82
<a name="line72"> 72: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
83
<a name="line73"> 73: </a><strong><font color="#228B22">#define kspqcggetquadratic_ kspqcggetquadratic</font></strong>
84
<a name="line74"> 74: </a><font color="#A020F0">#endif</font>
85
<a name="line75"> 75: </a><font color="#A020F0">#endif</font>
89
<a name="line79"> 79: </a><font color="#B22222">/* Definitions of Fortran Wrapper routines */</font>
90
<a name="line80"> 80: </a><font color="#A020F0">#if defined(__cplusplus)</font>
91
<a name="line81"> 81: </a>extern <font color="#666666">"C"</font> {
92
<a name="line82"> 82: </a><font color="#A020F0">#endif</font>
93
<a name="line83"> 83: </a><strong><font color="#4169E1"><a name="kspqcgsettrustregionradius_"></a>void PETSC_STDCALL kspqcgsettrustregionradius_(<A href="../../../docs/manualpages/KSP/KSP.html#KSP">KSP</A> ksp,PetscReal *delta, int *ierr )</font></strong>{
94
<a name="line84"> 84: </a><strong><font color="#4169E1">*KSPQCGSetTrustRegionRadius(</font></strong>
95
<a name="line85"> 85: </a><strong><font color="#4169E1"> (<A href="../../../docs/manualpages/KSP/KSP.html#KSP">KSP</A>)PetscToPointer( (ksp) ),*delta)</font></strong>;
96
<a name="line86"> 86: </a>}
97
<a name="line87"> 87: </a><strong><font color="#4169E1"><a name="kspqcggettrialstepnorm_"></a>void PETSC_STDCALL kspqcggettrialstepnorm_(<A href="../../../docs/manualpages/KSP/KSP.html#KSP">KSP</A> ksp,PetscReal *tsnorm, int *ierr )</font></strong>{
98
<a name="line88"> 88: </a><strong><font color="#4169E1">*KSPQCGGetTrialStepNorm(</font></strong>
99
<a name="line89"> 89: </a><strong><font color="#4169E1"> (<A href="../../../docs/manualpages/KSP/KSP.html#KSP">KSP</A>)PetscToPointer( (ksp) ),tsnorm)</font></strong>;
100
<a name="line90"> 90: </a>}
101
<a name="line91"> 91: </a><strong><font color="#4169E1"><a name="kspqcggetquadratic_"></a>void PETSC_STDCALL kspqcggetquadratic_(<A href="../../../docs/manualpages/KSP/KSP.html#KSP">KSP</A> ksp,PetscReal *quadratic, int *ierr )</font></strong>{
102
<a name="line92"> 92: </a><strong><font color="#4169E1">*KSPQCGGetQuadratic(</font></strong>
103
<a name="line93"> 93: </a><strong><font color="#4169E1"> (<A href="../../../docs/manualpages/KSP/KSP.html#KSP">KSP</A>)PetscToPointer( (ksp) ),quadratic)</font></strong>;
104
<a name="line94"> 94: </a>}
105
<a name="line95"> 95: </a><font color="#A020F0">#if defined(__cplusplus)</font>
106
<a name="line96"> 96: </a>}
107
<a name="line97"> 97: </a><font color="#A020F0">#endif</font>