This file is indexed.

/usr/lib/petscdir/3.7.5/x86_64-linux-gnu-real-debug/include/petsc/finclude/ftn-auto/petsctao.h90 is in libpetsc3.7.5-dbg 3.7.5+dfsg1-4+b1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
      subroutine VecFischer(a,b,c,d,e,z)
       Vec a ! Vec
       Vec b ! Vec
       Vec c ! Vec
       Vec d ! Vec
       Vec e ! Vec
       integer z
       end subroutine
      subroutine VecSFischer(a,b,c,d,e,f,z)
       Vec a ! Vec
       Vec b ! Vec
       Vec c ! Vec
       Vec d ! Vec
       PetscReal e ! PetscReal
       Vec f ! Vec
       integer z
       end subroutine
      subroutine MatDFischer(a,b,c,d,e,f,g,h,i,z)
       Mat a ! Mat
       Vec b ! Vec
       Vec c ! Vec
       Vec d ! Vec
       Vec e ! Vec
       Vec f ! Vec
       Vec g ! Vec
       Vec h ! Vec
       Vec i ! Vec
       integer z
       end subroutine
      subroutine MatDSFischer(a,b,c,d,e,f,g,h,i,j,k,z)
       Mat a ! Mat
       Vec b ! Vec
       Vec c ! Vec
       Vec d ! Vec
       Vec e ! Vec
       PetscReal f ! PetscReal
       Vec g ! Vec
       Vec h ! Vec
       Vec i ! Vec
       Vec j ! Vec
       Vec k ! Vec
       integer z
       end subroutine
      subroutine TaoSetStateDesignIS(a,b,c,z)
       Tao a ! Tao
       IS b ! IS
       IS c ! IS
       integer z
       end subroutine
      subroutine TaoCreate(a,b,z)
       integer a ! MPI_Comm
       Tao b ! Tao
       integer z
       end subroutine
      subroutine TaoSolve(a,z)
       Tao a ! Tao
       integer z
       end subroutine
      subroutine TaoSetUp(a,z)
       Tao a ! Tao
       integer z
       end subroutine
      subroutine TaoDestroy(a,z)
       Tao a ! Tao
       integer z
       end subroutine
      subroutine TaoSetFromOptions(a,z)
       Tao a ! Tao
       integer z
       end subroutine
      subroutine TaoSetTolerances(a,b,c,d,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       PetscReal c ! PetscReal
       PetscReal d ! PetscReal
       integer z
       end subroutine
      subroutine TaoSetConstraintTolerances(a,b,c,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       PetscReal c ! PetscReal
       integer z
       end subroutine
      subroutine TaoGetConstraintTolerances(a,b,c,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       PetscReal c ! PetscReal
       integer z
       end subroutine
      subroutine TaoSetFunctionLowerBound(a,b,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       integer z
       end subroutine
      subroutine TaoGetFunctionLowerBound(a,b,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       integer z
       end subroutine
      subroutine TaoSetMaximumFunctionEvaluations(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoGetMaximumFunctionEvaluations(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoGetCurrentFunctionEvaluations(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoSetMaximumIterations(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoGetMaximumIterations(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoSetInitialTrustRegionRadius(a,b,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       integer z
       end subroutine
      subroutine TaoGetInitialTrustRegionRadius(a,b,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       integer z
       end subroutine
      subroutine TaoGetCurrentTrustRegionRadius(a,b,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       integer z
       end subroutine
      subroutine TaoGetTolerances(a,b,c,d,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       PetscReal c ! PetscReal
       PetscReal d ! PetscReal
       integer z
       end subroutine
      subroutine TaoGetKSP(a,b,z)
       Tao a ! Tao
       KSP b ! KSP
       integer z
       end subroutine
      subroutine TaoGetLinearSolveIterations(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoGetLineSearch(a,b,z)
       Tao a ! Tao
       TaoLineSearch b ! TaoLineSearch
       integer z
       end subroutine
      subroutine TaoAddLineSearchCounts(a,z)
       Tao a ! Tao
       integer z
       end subroutine
      subroutine TaoGetSolutionVector(a,b,z)
       Tao a ! Tao
       Vec b ! Vec
       integer z
       end subroutine
      subroutine TaoGetGradientVector(a,b,z)
       Tao a ! Tao
       Vec b ! Vec
       integer z
       end subroutine
      subroutine TaoResetStatistics(a,z)
       Tao a ! Tao
       integer z
       end subroutine
      subroutine TaoCancelMonitors(a,z)
       Tao a ! Tao
       integer z
       end subroutine
      subroutine TaoGetIterationNumber(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoSetIterationNumber(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoGetTotalIterationNumber(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoSetTotalIterationNumber(a,b,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       integer z
       end subroutine
      subroutine TaoSetConvergedReason(a,b,z)
       Tao a ! Tao
       TaoConvergedReason b ! TaoConvergedReason
       integer z
       end subroutine
      subroutine TaoGetConvergedReason(a,b,z)
       Tao a ! Tao
       TaoConvergedReason b ! TaoConvergedReason
       integer z
       end subroutine
      subroutine TaoGetSolutionStatus(a,b,c,d,e,f,g,z)
       Tao a ! Tao
       PetscInt b ! PetscInt
       PetscReal c ! PetscReal
       PetscReal d ! PetscReal
       PetscReal e ! PetscReal
       PetscReal f ! PetscReal
       TaoConvergedReason g ! TaoConvergedReason
       integer z
       end subroutine
      subroutine TaoSetConvergenceHistory(a,b,c,d,e,f,g,z)
       Tao a ! Tao
       PetscReal b ! PetscReal
       PetscReal c ! PetscReal
       PetscReal d ! PetscReal
       PetscInt e ! PetscInt
       PetscInt f ! PetscInt
       PetscBool g ! PetscBool
       integer z
       end subroutine
      subroutine TaoSetGradientNorm(a,b,z)
       Tao a ! Tao
       Mat b ! Mat
       integer z
       end subroutine
      subroutine TaoGetGradientNorm(a,b,z)
       Tao a ! Tao
       Mat b ! Mat
       integer z
       end subroutine
      subroutine TaoSetVariableBounds(a,b,c,z)
       Tao a ! Tao
       Vec b ! Vec
       Vec c ! Vec
       integer z
       end subroutine
      subroutine TaoSetInequalityBounds(a,b,c,z)
       Tao a ! Tao
       Vec b ! Vec
       Vec c ! Vec
       integer z
       end subroutine
      subroutine TaoComputeDualVariables(a,b,c,z)
       Tao a ! Tao
       Vec b ! Vec
       Vec c ! Vec
       integer z
       end subroutine
      subroutine TaoGetDualVariables(a,b,c,z)
       Tao a ! Tao
       Vec b ! Vec
       Vec c ! Vec
       integer z
       end subroutine
      subroutine TaoSetInitialVector(a,b,z)
       Tao a ! Tao
       Vec b ! Vec
       integer z
       end subroutine
      subroutine TaoComputeGradient(a,b,c,z)
       Tao a ! Tao
       Vec b ! Vec
       Vec c ! Vec
       integer z
       end subroutine
      subroutine TaoComputeObjective(a,b,c,z)
       Tao a ! Tao
       Vec b ! Vec
       PetscReal c ! PetscReal
       integer z
       end subroutine
      subroutine TaoComputeObjectiveAndGradient(a,b,c,d,z)
       Tao a ! Tao
       Vec b ! Vec
       PetscReal c ! PetscReal
       Vec d ! Vec
       integer z
       end subroutine
      subroutine TaoSetSeparableObjectiveWeights(a,b,c,d,e,f,z)
       Tao a ! Tao
       Vec b ! Vec
       PetscInt c ! PetscInt
       PetscInt d ! PetscInt
       PetscInt e ! PetscInt
       PetscReal f ! PetscReal
       integer z
       end subroutine
      subroutine TaoComputeSeparableObjective(a,b,c,z)
       Tao a ! Tao
       Vec b ! Vec
       Vec c ! Vec
       integer z
       end subroutine
      subroutine TaoIsObjectiveDefined(a,b,z)
       Tao a ! Tao
       PetscBool b ! PetscBool
       integer z
       end subroutine
      subroutine TaoIsGradientDefined(a,b,z)
       Tao a ! Tao
       PetscBool b ! PetscBool
       integer z
       end subroutine
      subroutine TaoIsObjectiveAndGradientDefined(a,b,z)
       Tao a ! Tao
       PetscBool b ! PetscBool
       integer z
       end subroutine