xref: /petsc/src/ts/tests/ex11.c (revision 327415f76d85372a4417cf1aaa14db707d4d6c04) 
1c4762a1bSJed Brown static char help[] = "Demonstrates previous memory leak for XXXRegister()\n\n";
2c4762a1bSJed Brown 
3c4762a1bSJed Brown #include <petscts.h>
4c4762a1bSJed Brown #include <petsccharacteristic.h>
5c4762a1bSJed Brown #include <petscdraw.h>
6c4762a1bSJed Brown #include <petscdm.h>
7c4762a1bSJed Brown #include <petscpf.h>
8c4762a1bSJed Brown #include <petscsf.h>
9c4762a1bSJed Brown #include <petscao.h>
10c4762a1bSJed Brown 
11c4762a1bSJed Brown static PetscErrorCode TSGLLEAdaptCreate_Dummy(TSGLLEAdapt ts)
12c4762a1bSJed Brown {
13c4762a1bSJed Brown   PetscFunctionBegin;
14c4762a1bSJed Brown   PetscFunctionReturn(0);
15c4762a1bSJed Brown }
16c4762a1bSJed Brown 
17c4762a1bSJed Brown static PetscErrorCode TSGLLECreate_Dummy(TS ts)
18c4762a1bSJed Brown {
19c4762a1bSJed Brown   PetscFunctionBegin;
20c4762a1bSJed Brown   PetscFunctionReturn(0);
21c4762a1bSJed Brown }
22c4762a1bSJed Brown 
23c4762a1bSJed Brown static PetscErrorCode TSAdaptCreate_Dummy(TSAdapt ts)
24c4762a1bSJed Brown {
25c4762a1bSJed Brown   PetscFunctionBegin;
26c4762a1bSJed Brown   PetscFunctionReturn(0);
27c4762a1bSJed Brown }
28c4762a1bSJed Brown 
29c4762a1bSJed Brown static PetscErrorCode TSCreate_Dummy(TS ts)
30c4762a1bSJed Brown {
31c4762a1bSJed Brown   PetscFunctionBegin;
32c4762a1bSJed Brown   PetscFunctionReturn(0);
33c4762a1bSJed Brown }
34c4762a1bSJed Brown 
35c4762a1bSJed Brown #if !defined(PETSC_USE_COMPLEX)
36c4762a1bSJed Brown static PetscErrorCode CharacteristicCreate_Dummy(Characteristic chr)
37c4762a1bSJed Brown {
38c4762a1bSJed Brown   PetscFunctionBegin;
39c4762a1bSJed Brown   PetscFunctionReturn(0);
40c4762a1bSJed Brown }
41c4762a1bSJed Brown #endif
42c4762a1bSJed Brown 
43c4762a1bSJed Brown static PetscErrorCode SNESLineSearchCreate_Dummy(SNESLineSearch sneslinesearch)
44c4762a1bSJed Brown {
45c4762a1bSJed Brown   PetscFunctionBegin;
46c4762a1bSJed Brown   PetscFunctionReturn(0);
47c4762a1bSJed Brown }
48c4762a1bSJed Brown 
49c4762a1bSJed Brown static PetscErrorCode SNESCreate_Dummy(SNES snes)
50c4762a1bSJed Brown {
51c4762a1bSJed Brown   PetscFunctionBegin;
52c4762a1bSJed Brown   PetscFunctionReturn(0);
53c4762a1bSJed Brown }
54c4762a1bSJed Brown 
55c4762a1bSJed Brown static PetscErrorCode KSPCreate_Dummy(KSP ksp)
56c4762a1bSJed Brown {
57c4762a1bSJed Brown   PetscFunctionBegin;
58c4762a1bSJed Brown   PetscFunctionReturn(0);
59c4762a1bSJed Brown }
60c4762a1bSJed Brown 
61c4762a1bSJed Brown static PetscErrorCode KSPGuessCreate_Dummy(KSPGuess ksp)
62c4762a1bSJed Brown {
63c4762a1bSJed Brown   PetscFunctionBegin;
64c4762a1bSJed Brown   PetscFunctionReturn(0);
65c4762a1bSJed Brown }
66c4762a1bSJed Brown 
67c4762a1bSJed Brown static PetscErrorCode PCCreate_Dummy(PC pc)
68c4762a1bSJed Brown {
69c4762a1bSJed Brown   PetscFunctionBegin;
70c4762a1bSJed Brown   PetscFunctionReturn(0);
71c4762a1bSJed Brown }
72c4762a1bSJed Brown 
73c4762a1bSJed Brown static PetscErrorCode DMCreate_Dummy(DM dm)
74c4762a1bSJed Brown {
75c4762a1bSJed Brown   PetscFunctionBegin;
76c4762a1bSJed Brown   PetscFunctionReturn(0);
77c4762a1bSJed Brown }
78c4762a1bSJed Brown 
79c4762a1bSJed Brown static PetscErrorCode MatOrderingCreate_Dummy(Mat mat,MatOrderingType mtype,IS *isr,IS *isc)
80c4762a1bSJed Brown {
81c4762a1bSJed Brown   PetscFunctionBegin;
82c4762a1bSJed Brown   PetscFunctionReturn(0);
83c4762a1bSJed Brown }
84c4762a1bSJed Brown 
85c4762a1bSJed Brown static PetscErrorCode MatPartitioningCreate_Dummy(MatPartitioning mat)
86c4762a1bSJed Brown {
87c4762a1bSJed Brown   PetscFunctionBegin;
88c4762a1bSJed Brown   PetscFunctionReturn(0);
89c4762a1bSJed Brown }
90c4762a1bSJed Brown 
91c4762a1bSJed Brown static PetscErrorCode MatCreate_Dummy(Mat mat)
92c4762a1bSJed Brown {
93c4762a1bSJed Brown   PetscFunctionBegin;
94c4762a1bSJed Brown   PetscFunctionReturn(0);
95c4762a1bSJed Brown }
96c4762a1bSJed Brown 
97c4762a1bSJed Brown static PetscErrorCode PFCreate_Dummy(PF pf,void *ctx)
98c4762a1bSJed Brown {
99c4762a1bSJed Brown   PetscFunctionBegin;
100c4762a1bSJed Brown   PetscFunctionReturn(0);
101c4762a1bSJed Brown }
102c4762a1bSJed Brown 
103c4762a1bSJed Brown static PetscErrorCode VecCreate_Dummy(Vec vec)
104c4762a1bSJed Brown {
105c4762a1bSJed Brown   PetscFunctionBegin;
106c4762a1bSJed Brown   PetscFunctionReturn(0);
107c4762a1bSJed Brown }
108c4762a1bSJed Brown 
109c4762a1bSJed Brown static PetscErrorCode VecScatterCreate_Dummy(VecScatter vec)
110c4762a1bSJed Brown {
111c4762a1bSJed Brown   PetscFunctionBegin;
112c4762a1bSJed Brown   PetscFunctionReturn(0);
113c4762a1bSJed Brown }
114c4762a1bSJed Brown 
115c4762a1bSJed Brown static PetscErrorCode PetscSFCreate_Dummy(PetscSF sf)
116c4762a1bSJed Brown {
117c4762a1bSJed Brown   PetscFunctionBegin;
118c4762a1bSJed Brown   PetscFunctionReturn(0);
119c4762a1bSJed Brown }
120c4762a1bSJed Brown 
121c4762a1bSJed Brown static PetscErrorCode ISLocalToGlobalMappingCreate_Dummy(ISLocalToGlobalMapping is)
122c4762a1bSJed Brown {
123c4762a1bSJed Brown   PetscFunctionBegin;
124c4762a1bSJed Brown   PetscFunctionReturn(0);
125c4762a1bSJed Brown }
126c4762a1bSJed Brown 
127c4762a1bSJed Brown static PetscErrorCode ISCreate_Dummy(IS is)
128c4762a1bSJed Brown {
129c4762a1bSJed Brown   PetscFunctionBegin;
130c4762a1bSJed Brown   PetscFunctionReturn(0);
131c4762a1bSJed Brown }
132c4762a1bSJed Brown 
133c4762a1bSJed Brown static PetscErrorCode AOCreate_Dummy(AO ao)
134c4762a1bSJed Brown {
135c4762a1bSJed Brown   PetscFunctionBegin;
136c4762a1bSJed Brown   PetscFunctionReturn(0);
137c4762a1bSJed Brown }
138c4762a1bSJed Brown 
139c4762a1bSJed Brown static PetscErrorCode PetscDrawCreate_Dummy(PetscDraw draw)
140c4762a1bSJed Brown {
141c4762a1bSJed Brown   PetscFunctionBegin;
142c4762a1bSJed Brown   PetscFunctionReturn(0);
143c4762a1bSJed Brown }
144c4762a1bSJed Brown 
145c4762a1bSJed Brown static PetscErrorCode PetscViewerCreate_Dummy(PetscViewer viewer)
146c4762a1bSJed Brown {
147c4762a1bSJed Brown   PetscFunctionBegin;
148c4762a1bSJed Brown   PetscFunctionReturn(0);
149c4762a1bSJed Brown }
150c4762a1bSJed Brown 
151c4762a1bSJed Brown static PetscErrorCode PetscRandomCreate_Dummy(PetscRandom arand)
152c4762a1bSJed Brown {
153c4762a1bSJed Brown   PetscFunctionBegin;
154c4762a1bSJed Brown   PetscFunctionReturn(0);
155c4762a1bSJed Brown }
156c4762a1bSJed Brown 
157c4762a1bSJed Brown int main(int argc,char **argv)
158c4762a1bSJed Brown {
159c4762a1bSJed Brown   PetscReal      A[1],Gamma[1] = {1.0},b[1],c[1],d[1];
160c4762a1bSJed Brown 
161*327415f7SBarry Smith   PetscFunctionBeginUser;
1629566063dSJacob Faibussowitsch   PetscCall(PetscInitialize(&argc,&argv,(char*)0,help));
163c4762a1bSJed Brown   /* TaoLineSearchRegister() also has the same memory leak */
164c4762a1bSJed Brown   /* TaoRegister() also has the same memory leak */
1659566063dSJacob Faibussowitsch   PetscCall(TSGLLEAdaptRegister("dummy",TSGLLEAdaptCreate_Dummy));
1669566063dSJacob Faibussowitsch   PetscCall(TSGLLERegister("dummy",TSGLLECreate_Dummy));
1679566063dSJacob Faibussowitsch   PetscCall(TSRKRegister("dummy",0,0,A,0,0,0,0,0));
1689566063dSJacob Faibussowitsch   PetscCall(TSGLEERegister("dummy",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0));
1699566063dSJacob Faibussowitsch   PetscCall(TSARKIMEXRegister("dummy",0,0,0,0,0,0,0,0,0,0,0,0,0));
1709566063dSJacob Faibussowitsch   PetscCall(TSRosWRegister("dummy",0,1,A,Gamma,b,0,0,0));
1719566063dSJacob Faibussowitsch   PetscCall(TSBasicSymplecticRegister("dummy",0,0,c,d));
1729566063dSJacob Faibussowitsch   PetscCall(TSAdaptRegister("dummy",TSAdaptCreate_Dummy));
1739566063dSJacob Faibussowitsch   PetscCall(TSRegister("dummy",TSCreate_Dummy));
174c4762a1bSJed Brown #if !defined(PETSC_USE_COMPLEX)
1759566063dSJacob Faibussowitsch   PetscCall(CharacteristicRegister("dummy",CharacteristicCreate_Dummy));
176c4762a1bSJed Brown #endif
1779566063dSJacob Faibussowitsch   PetscCall(SNESLineSearchRegister("dummy",SNESLineSearchCreate_Dummy));
1789566063dSJacob Faibussowitsch   PetscCall(SNESRegister("dummy",SNESCreate_Dummy));
1799566063dSJacob Faibussowitsch   PetscCall(KSPGuessRegister("dummy",KSPGuessCreate_Dummy));
1809566063dSJacob Faibussowitsch   PetscCall(KSPRegister("dummy",KSPCreate_Dummy));
1819566063dSJacob Faibussowitsch   PetscCall(PCRegister("dummy",PCCreate_Dummy));
1829566063dSJacob Faibussowitsch   PetscCall(DMRegister("dummy",DMCreate_Dummy));
1839566063dSJacob Faibussowitsch   PetscCall(MatOrderingRegister("dummy",MatOrderingCreate_Dummy));
1849566063dSJacob Faibussowitsch   PetscCall(MatPartitioningRegister("dummy",MatPartitioningCreate_Dummy));
1859566063dSJacob Faibussowitsch   PetscCall(MatRegister("dummy",MatCreate_Dummy));
1869566063dSJacob Faibussowitsch   PetscCall(PFRegister("dummy",PFCreate_Dummy));
1879566063dSJacob Faibussowitsch   PetscCall(VecScatterRegister("dummy",VecScatterCreate_Dummy));
1889566063dSJacob Faibussowitsch   PetscCall(VecRegister("dummy",VecCreate_Dummy));
1899566063dSJacob Faibussowitsch   PetscCall(PetscSFRegister("dummy",PetscSFCreate_Dummy));
1909566063dSJacob Faibussowitsch   PetscCall(ISLocalToGlobalMappingRegister("dummy",ISLocalToGlobalMappingCreate_Dummy));
1919566063dSJacob Faibussowitsch   PetscCall(ISRegister("dummy",ISCreate_Dummy));
1929566063dSJacob Faibussowitsch   PetscCall(AORegister("dummy",AOCreate_Dummy));
1939566063dSJacob Faibussowitsch   PetscCall(PetscDrawRegister("dummy",PetscDrawCreate_Dummy));
1949566063dSJacob Faibussowitsch   PetscCall(PetscViewerRegister("dummy",PetscViewerCreate_Dummy));
1959566063dSJacob Faibussowitsch   PetscCall(PetscRandomRegister("dummy",PetscRandomCreate_Dummy));
1969566063dSJacob Faibussowitsch   PetscCall(PetscFinalize());
197b122ec5aSJacob Faibussowitsch   return 0;
198c4762a1bSJed Brown }
199c4762a1bSJed Brown 
200c4762a1bSJed Brown /*TEST
201c4762a1bSJed Brown 
202c4762a1bSJed Brown    test:
203c4762a1bSJed Brown 
204c4762a1bSJed Brown TEST*/
205